Ввести число N. Вывести число, получаемое выписыванием в обратном порядке цифр числа N. (Например, 1234, результат 4321). pascal цикл while или repeat

Program n1;
var
n, a, m: longint;
begin
write(введите число: );
readln(n);
m := 0;
while ngt;0 do begin
a := n mod 10;
n := n div 10;
m := m*10 + a;
end;
writeln(перевернутое число: ,m);
end.

Var
n, nn : integer;
begin
repeat
write (Введите число, не оканчивающиеся на 0: )
readln (n);
until (n mod 10)lt;gt;0;

while ngt;0 do
begin
nn:=nn*10+(n mod 10);
n:=n div 10;
end;

write (nn);
end.