Сколько раз встречается заданная цифра в натуральном числе? - 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.

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

Листинг программы

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.

Объяснение кода листинга программы

В функции kol объявлены две переменные n и k, которые представляют собой входные данные для функции. Переменная n представляет собой натуральное число, а переменная k представляет собой заданную цифру.
В цикле while переменной n присваивается значение n div 10, что означает деление числа n на 10. Это продолжается до тех пор, пока n больше 0.
Внутри цикла проверяется условие if n mod 10 = k. Если это условие истинно, то переменной c присваивается значение 1. Это происходит каждый раз, когда в числе встречается заданная цифра.
После завершения цикла while значение переменной kol присваивается переменной c.
В основной части программы пользователю предлагается ввести натуральное число и цифру.
После ввода данных вызывается функция kol.
Результат работы функции выводится на экран.