Описать рекурсивную функцию подсчёта количества цифр в строке — Pascal(Паскаль)

Program xa;
 
const chisla=['1','2','3','4','5','6','7','8','9','0'];
function kolvo(s:string;i,n:byte):byte;
begin
  if i<length(s) then
  begin
    if s[i] in chisla then
      inc(n);
    inc(i);
    kolvo:=kolvo(s,i,n);
  end;
  if i=length(s) then
    kolvo:=n;
end;
 
var
  s:string;
  a,b:byte;
 
begin
  writeln('Vvedute ctpoky');
  readln(s);
  writeln('Kolu4ectvo L/ufr = ' ,kolvo(s,a,b));
  readln
end.