Написать программку в паскале: Дано естественное число n. Заменить порядок следования

program reverse1;
var s,m,n:integer;

begin
writeln(Введите число);
readln(n);
s:= 0;
while n gt; 0 do
begin
//Обретаем остаток от деления числа на 10
//(в цикле получаются числа в оборотном порядке).
m:= n mod 10;
//Остатки добавляются в конец нового числа.
//При повторении цикла соответствующие числа передвигаются
//в следующий разряд за счет умножения на 10.  
s:= s * 10 + m;
n:=n div 10
//Число делится на 10, чтоб при последующем прохождении
//цикла отыскать остаток цифру старшего разряда.
end;
writeln(s)
end.