Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, найти число, полученное при прочтении числа N справа налево — Pascal(Паскаль)

Program qq;
uses crt;
var N,p:longint;
    i:byte;
begin
clrscr;
writeln ('Vvedite  N');
readln (N);
p:=0;
while n>0 do
 begin
  i:=n mod 10;
  p:=p*10+i;
  n:=n div 10;
 end;
write(p);
readln
end.