Рекурсия: сколько последовательностей из 2 цифр, в сумме равных k, содержится в заданном числе?

var 
    n:longint;
    k:integer;
    
procedure SumNum(n:longint;k:integer);
begin
    if n div 10=0 then readln else
     begin
            if ((n mod 10)+(n div 10) mod 10)=k then writeln((n mod 10),' + ',(n div 10) mod 10);
      SumNum(n div 10,k);
     end
end;
        
 
begin
    writeln('vvodite chislo');
    readln(n);
    writeln('Vvedite summu');
    readln(k);
    SumNum(n,k);    
    readln
end.

uses crt;
var a:array[1..9]of longint;n,k:longint;i:byte;
function f(i:byte):byte;
begin
if i=2 then begin if a[1]+a[2]=k then f:=1 else f:=0 end
       else
       if a[i]+a[i-1]=k then f:=f(i-1)+1
       else f:=f(i-1);
end;
begin clrscr;
write('vvedite n=');
readln(n);
write('vvedite k=');
readln(k);
while n<>0 do
begin
i:=i+1;
a[i]:=n mod 10;
n:=n div 10;
end;
write(f(i));
readln;
end.