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

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