Вывести целое положительное число наоборот — Pascal(Паскаль)

program oboroten;
var x, a, k, rez, n, dop, tc, i, st : longint;
begin

 writeln ('Vvedite chislo: ');
 readln (a);
 x := abs(a);
 k := 0;
 repeat
 x := x div 10;
 inc (k);
 until x=0;
 rez := 0;
 n := abs(a*10);
 for dop := k downto 1 do
 begin
  st := 1;
  for i := 1 to dop - 1 do
  st := st * 10;
  n := n div 10;
  tc := n mod 10;
  rez := rez + tc * st;
 end;
writeln (rez);
end.