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

uses crt;
var n,m,p:longint;
    i:integer;
begin
clrscr;
write('n=');
readln(n);
m:=n;
p:=0;
while m>0 do
  begin
    i:=m mod 10;
    p:=p*10+i;
    m:=m div 10;
  end;
write(p);
readln
end.