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

Var a,b,k:integer;  function kol(x,y:integer):integer;  Begin  if x=0   then kol:=0  else if x mod 10 = y then kol:=kol(x div 10,y)+1                       else kol:=kol(x div 10,y); end;  begin  readln(a,b);  k:=kol(a,b); writeln(k);  end. Пример: 13093 3 2