Процедуры и функции. Число наоборот - Pascal ABC

Формулировка задачи:

Добрый вечер! Помогите, пожалуйста! Заменить данные n натуральных чисел на числа, которые получаются из исходных записью его цифр в обратном порядке (например, дано число 156, нужно получить 651). Определить функцию, которая записывает числа в обратном порядке.

Решение задачи: «Процедуры и функции. Число наоборот»

Листинг программы

function revers(n:integer):integer;
var m,s:longint;
    i:byte;
begin
if n<10 then s:=n
else
 begin
  s:=0;
  while n>0 do
   begin
    i:=n mod 10;
    s:=s*10+i;
    n:=n div 10;
  end;
 end;
revers:=s;
end;
var n,i,a:integer;
begin
write('Сколько чисел вести n=');
readln(n);
writeln('Введите ',n,' натуральных чисел');
for i:=1 to n do
 begin
  readln(n);
  writeln('Число наоборот=',revers(n));
 end;;
end.

Объяснение кода листинга программы

Создаётся функция revers(n:integer), которая принимает целочисленный аргумент n и возвращает целое число.
В переменной m и s инициализируется значение 0.
В переменной i инициализируется значение 1.
Выполняется цикл while n>0 do, который будет выполняться до тех пор, пока n больше нуля.
Внутри цикла выполняется операция n mod 10, которая возвращает последнюю цифру числа n.
Полученное значение последней цифры добавляется к переменной s с множителем 10.
Значение n делится на 10, и результат сохраняется в переменной n.
После завершения внутреннего цикла, значение переменной s будет содержать число, полученное путем обратной записи цифр числа n.
Значение переменной s присваивается переменной revers.
Конец функции.
Выводится приглашение для ввода количества чисел n.
Выводится приглашение для ввода n натуральных чисел.
Для каждого числа n из диапазона от 1 до n выполняется цикл for i:=1 to n do.
Внутри цикла выполняется чтение числа n с помощью функции readln().
Выводится сообщение Число наоборот=, за которым следует вызов функции revers(n).
После завершения внешнего цикла, выводится итоговое сообщение.
Конец программы.