Обратный порядок цифр числа - Free Pascal

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

В вводе имеем положительное число меньше чем 32768. Нужно, чтобы на выводе было число с обратным порядком цифр. Например: Ввод: 23551 Вывод: 15532

Решение задачи: «Обратный порядок цифр числа»

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

var a:integer;
function obr(x:integer):integer;
var xx:integer;
begin
 xx:=0;
 while x>0 do 
  begin 
   xx:=xx*10+(x mod 10);
   x:=x div 10
  end;
 obr:=xx
end;
begin
 readln(a);
 writeln(obr(a))
end.

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

Объявлены две переменные: a типа integer (целое число) и xx типа integer (целое число), инициализированная значением 0.
Функция obr принимает целочисленный аргумент x и возвращает целочисленное значение. Внутри функции объявлена переменная xx типа integer (целое число), инициализированная значением 0.
В функции obr выполняется цикл while, который выполняется до тех пор, пока значение переменной x больше 0.
Внутри цикла xx умножается на 10 и к результату прибавляется остаток от деления x на 10.
Значение x делится на 10.
После выхода из цикла xx содержит обратный порядок цифр числа a.
Значение xx присваивается аргументу x функции obr.
В основной программе вводится значение переменной a с помощью функции readln.
Вызывается функция obr с аргументом a.
Результат функции obr выводится на экран с помощью функции writeln.