Pascal. рекурсия.

[TOSAgrk]

Разработать рекурсивную функцию которая выделяет определенную цифру от 0 до 9 из десятичной записи натурального числа и выводит ее на экран. На основе разработанной функции вывести на экран десятичную запись заданных натуральных чисел а) в зворотнему порядке бы) в прямом начиная со старших разрядов дополнительно разработать не рекурсивный вариант.


ето не рекурсивный вариант

uses crt, math;
var a, rez_od1, rez_des1, rez_des2, rez_sot1, rez_sot2, rez_tus:integer;
begin
clrscr;
writeln('Vvedit chuslo vid 0 do 999: ');
readln(a);
if a < 10 then
begin
rez_od1:=a;
writeln('Odunuci ',rez_od1);
end;
if (a>=10) and (a<100) then
begin
rez_od1:=a mod 10;
writeln('Odunuci = ', rez_od1);
rez_des1:= a div 10;
writeln('Desjati =', rez_des1);
end;
if (a>=100) and (a<1000) then
begin
rez_od1:= a mod 10;
writeln('Odunuci = ', rez_od1);
writeln;
rez_des1 := a div 10;
rez_des2 := rez_des1 mod 10;
writeln('Desjati = ', rez_des2);
writeln;
rez_sot1 := a div 100;
{rez_sot2 := rez_sot1 div 10;}
writeln('Soti = ', rez_sot1);
writeln;
end;
readln;
{readln;}
end.

нужна помощь с рекурсивным..

[Sazary]

uses crt;
var a : integer;

procedure rec(n,d : integer);
var m : integer;
 begin
 if n = 0 then exit;
 m := n mod 10;
 case d of
 1 : writeln('Odunuci ', m);
 2 : writeln('Desjati =', m);
 3 : writeln('Soti = ', m);
 else writeln('Error');
 end;
 inc(d);
 n := n div 10;
 rec(n,d);
 end;

begin
clrscr;
writeln('Vvedit chuslo vid 0 do 999: ');
readln(a);
rec(a,1);
readln;
end.

[Plague]

Я как понял нужно перевернуть заданное натуральное число с помощью рекурсии.
тогда зачем так мудрить?
Вот вот код смотрите:

var n:int64;
procedure p(x:int64);
begin 
write(x mod 10);
x:=x div 10;
if x>0 then p(x);
end;
begin
readln(n);
p(n);
end.