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

procedure pr_rec(ch:integer;var new:integer);
begin
if ch<>0 then
 begin
  new:=new*10+(ch mod 10);
  pr_rec(ch div 10,new);
 end;
end;
var ch,new:integer;
begin
write('ch=');
readln(ch);
pr_rec(ch,new);
writeln(new);
end.

procedure revers(const n,m:integer; var novoe_chislo:string);
var
  s:char;
begin
  if m-n>1 then
  begin
    s:=novoe_chislo[n];
    novoe_chislo[n]:=novoe_chislo[m];
    novoe_chislo[m]:=s;
    revers(n+1,m-1,novoe_chislo);
  end;
end;
var
  chislo,novoe_chislo:string;
begin
  write('chislo='); readln(chislo);
  novoe_chislo:=chislo;
  revers(1,Length(novoe_chislo),novoe_chislo);
  writeln(novoe_chislo);
end.

procedure Revers(k:byte;s:string);
begin
write(s[k]);
if k>1 then
Revers(k-1,s);
end;
var s:string;
    c:char;
    i,k:byte;
begin
writeln('Vvedite chislo:');
readln(s);
k:=length(s);
Revers(k,s);
end.

procedure revers(const n:integer; var chislo:string; var novoe_chislo:string);
var
  s:char;
begin
  novoe_chislo:=novoe_chislo+chislo[n];
  if n>1 then
    revers(n-1,chislo,novoe_chislo);
end;
var
  chislo,novoe_chislo:string;
begin
  write('chislo='); readln(chislo);
  novoe_chislo:='';
  revers(Length(chislo),chislo,novoe_chislo);
  writeln(novoe_chislo);
end.

function rec(ch,new:integer):integer;
begin
new:=10*(new+ch mod 10);
if ch>9 then rec:=rec(ch div 10,new)
else rec:=new div 10;
end;
 
var ch:integer;
begin
write('ch=');
readln(ch);
writeln(rec(ch,0));
end.

Function Power10k(k : Byte) : Longint;
Begin
  If k>0 then Power10k:=10*Power10k(k-1) else Power10k:=1;
end;
 
Function GetNumCifr(A : Longint) : Integer;
Begin
  If A<=0 then GetNumCifr:=0 else GetNumCifr:=1+GetNumCifr(A div 10);
End;
 
Function IntRevers(a : Longint) : Longint;
Begin
  If a>0 then
    IntRevers:=(a mod 10)*(Power10k(GetNumCifr(a)-1))+IntRevers(a div 10)
  else IntRevers:=0;
end;
 
Begin
  Writeln(IntRevers(12345));
end.