Написать программу которая задумывает число и печатает его наоборот. ( пример: 341 и 143) в паскаль.

A: = random(500)
Как перевернуть хз

var m,p:longint;  
  i:integer;
begin
writeln ('Введите натуральное число не более 999999999');
repeat
readln(m);
until(m>0)and(m<=999999999);
 p:=0;
while m>0 do  
begin  
   i:=m mod 10;  
   p:=p*10+i;  
   m:=m div 10;
  end; write(p);
readln
end.