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

program pr1;
var z:array[1..20] of integer;
    ch:longint;
    i,kz:byte;
procedure pr_raspak(ch:longint; var kz:byte; var mas:array[1..20] of integer);
begin
   kz:=0;
   while ch<>0 do
   begin
     inc(kz);
     mas[kz]:=ch mod 10;
     ch:=ch div 10;
   end;
end;
begin
   writeln('Vvedite chislo');
   readln(ch);
   pr_raspak(ch,kz,z);
   for i:=1 to kz do
   write(z[i]);
end.