Задано натуральное число N. Изменить в нем порядок цифр на обратный.Например: 327-723 — Pascal(Паскаль)

uses crt;
var M,s:longint;
    i:byte;
begin
clrscr;
write('M='); readln(M);//вводимое число
s:=0;//новое сисло
while M>0 do//пока число не ноль
 begin
  i:=M mod 10;//берем последнюю цифру
  s:=s*10+i;//умножаем уже полученную часть числа на 10 и прибавляем следующую цифру
  M:=M div 10;//делим число на 10 и все повторяем
end;
write('rezult = ',s);
readln
end.