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

program pr1;
var ch:longint;
procedure pr_ch(ch:longint);
begin
  if ch<>0 then begin
                  write(ch mod 10);
                  pr_ch(ch div 10);
                        end;
end;
begin
  writeln('Vvedite chislo');
  readln(ch);
  pr_ch(ch);
end.