Рекурсия Опции

[Amro]

Люди объясните пожалуйста что такое рекурсия.... Мне надо программку написать использую рекурсивную функцию, а почитать про саму рекурсию у меня нету ничего.... В общем вот условие:
 "Написать программу, определяющую из скольки цифр состоит данное натуральное число"
Вот как я её написал, но по-моему это не рекурсия!! Объясните пожалуйста как её переделать(если она не правильна)!!!.............

Код

program lab6;
uses crt;
var
m:longint; q:char;
function KOL(n:longint):word;
var k:word;
 begin
 k:=0;
 if n=0 then begin k:=1; kol:=k; end;
   while (n<>0) do
     begin
     n:=n div 10;
     inc(k);
     KOL:=k;
   end;
 end;
begin
repeat
clrscr;
writeln('введите натуральное число');
readln(m);
writeln('число ',m,' состоит из ', KOL(m),' цифр');
write('Вычислить еще ?(Y/N)');
q:=ReadKey;
until not (q in ['Y','y']);
end.

???

[SKVOZNJAK]

Кстати, как там у твоей любимой учительницы, нервишки-то крепкие?  ;)

Код

program lab6;
uses crt;
var
m:longint;
q:char;

function KOL(n:longint):word;
var k,w:word;
label 1,2,3;
begin
k:=0;
if n=0 then begin
                 k:=1;
                 kol:=k;
                 goto 2;
                 end;
w:=0;
1: for k:=w to w do begin
                              n:=n div 10;  
                              inc(k);
                              inc(w);
                              if n>0 then goto 1 else goto 3;
                              end;
3: KOL:=k;
2: end;

begin
repeat
clrscr;
writeln('введите натуральное число');
readln(m);
writeln('число ',m,' состоит из ', KOL(m),' цифр'); write('Вычислить еще ?(Y/N)');
q:=ReadKey;
until not (q in ['Y','y']);
end.