Рекурсивная программа на Паскале "количество чисел в строке"

[Voldemort93]

подправьте, пожалуйста, код на Pascal, т.к не могу нормально написать рекурсивную функцию. задача: Задана строка символов. Определить количество символов-цифр в строке с помощью рекурсии.
Есть немного кривоватый код. Помогите, пожалуйста.

Program lr12z2;
Uses Crt;

function cifirka (var stroka:string):byte;
var i,n:byte;
begin
     n:=0;
     if (k=1) or (stroka[k] in ['0'..'9']) then
     begin n:=1; end
     else
     if k>1 then
       if stroka [k] in ['0'..'9'] then
         begin n:=n+1; cifirka:=k-1; end
       else begin cifirka:=k-1; end;
       writeln ('Количество цифр в строке= ',n);
end;

var stroka:string; k,n:byte;
Begin
   ClrScr;
     Writeln ('Введите строку :');
     readln(stroka);
     k:=length (stroka);
     n:=0;
     cifirka (stroka);
   readln;
end.

[L_M]

я бы сделал так

function cifirca(stroka:string):byte;
var
    tmp:string;
begin
    if(length(stroka)>1) then begin
        tmp:=stroka;
        delete(tmp,1,1);
        if(stroka[1] in ['0'..'9']) then
            result:=cifirka(tmp)+1
        else
            result:=cifirka(tmp);
    end else
          if(stroka[1] in ['0'..'9']) then
              result:=1
          else
              result:=0;
end;

может не совсем по заданию, но какая-то рекурсия тут есть и количество цифр должно посчитаться

[Voldemort93]

а можете полностью сформулировать код, потому что мне выдает одну ерунду?

[GetMax]

Voldemort93, как вам такой вариант:

Var
  Stroka:String;
Function RekKol(St:String; k:Byte):Byte;
Begin
  If k = 0 then RekKol:=0
  Else
  If not (St[k] in ['0'..'9']) then RekKol:=Rekkol(st,k-1)
  Else
  If(St[k] in ['0'..'9']) then RekKol:=RekKol(St,k-1)+1
End;
Begin
  Readln(Stroka);
  Writeln(RekKol(Stroka,Length(Stroka)));
  Readln
End.

[Voldemort93]

GetMax, Спасибо большое! То, что нужно.