Составить программу для нахождения числа, которое образуется из данного натурального числа при записи его цифр в обратном порядке — Pascal(Паскаль)

var
a,b:longint;
begin
readln(a);
repeat
b:=b*10+a mod 10;
a:=a div 10;
until a=0;
writeln(b);
readln;
end.

var ch,new:longint;
procedure pr_rec(ch:longint;var new:longint);
begin
   if ch<>0 then begin//мы разворачиваем число, до тех пор пока оно не равно 0
                     new:=new*10+(ch mod 10);//отделяем цифру и записываем в новое число
                     pr_rec(ch div 10,new);//в вызов процедуры попадет число без последней цифры(например было 123, а в процедуру попадет 12..)
                 end;
end;
begin
  writeln('Введите число');
  readln(ch);
  pr_rec(ch,new);
  writeln(new);
end.