Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке — Pascal(Паскаль)

program g;

type
  cisla = 0 .. 9;

var
  m: array [1 .. 1000] of cisla;
  i: integer;
  n: word;
  s, x: string;
  x1, code: integer;

begin
  write('Vvedite cislo: ');
  readln(n);
  str(n, s);
  writeln;
  write('Isgodnoe cislo: ');
  for i := length(s) downto 1 do
    write(s[i]);

  readln;

end.