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

var n,m,p:integer;
begin
write('Введите натуральное число n=');
readln(n);
m:=n;//сохраним число, вдруг еще нужно будет
p:=0;
while m>0 do//если не нужно, то вместо m везде n
  begin
    i:=m mod 10;
    p:=p*10+i;
    m:=m div 10;
  end;
write(p);
end.