Сколько раз встречается заданная цифра в натуральном числе? - Pascal ABC

Формулировка задачи:

Не могу найти ошибку. Программа не считает количество цифр. В чем ошибка?
 Function kol (n,k:integer):byte;
  var c:byte;
  begin 
  c:=0;
   if n mod 10=k then c:=c+1;
  n:=n div 10;
  kol:=c;
  end;
 
  var n,k:integer;
  begin
    Writeln('Введите натуральное число ');
    readln(n);
    Writeln('Введите цифру ');
    readln(k);
  writeln ('Цифра ',k,' встречается ',kol(n,k),' раз в числе ',n);
  end.

Код к задаче: «Сколько раз встречается заданная цифра в натуральном числе? - Pascal ABC»

textual
function kol(n, k: LongInt): Integer;
var
  c: byte;
begin
  c := 0;
  while n > 0 do
  begin
    if n mod 10 = k then 
      c := c + 1;
    n := n div 10;
  end;
  kol := c;
end;
 
var
  n, k: longint;
 
begin
  Writeln('Введите натуральное число ');
  readln(n);
  Writeln('Введите цифру ');
  readln(k);
  writeln('Цифра ', k, ' встречается ', kol(n, k), ' раз в числе ', n);
end.

12   голосов, оценка 3.917 из 5


СОХРАНИТЬ ССЫЛКУ