Написать программу в паскале: Дано натуральное число n. Заменить порядок следования цифр числа n на обратный.

Var
  n,x:string;
  i:integer;
begin
write(Введите число n: );
readln(n);
for i:=length(n) downto 1 do x:=x+n[i];
writeln(Обратное число: ,x)
end.

или можно так:

var
  n:string;
begin
write(Введите число n: );
readln(n);
writeln(Обратное число: ,ReverseString(n) )
end.