Сколько цифр d в числе x - PascalABC.NET

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

                    Листинг программы
                
 
                        
                          
                    
var a,x,k:integer;
begin
 readln(x);
 readln(k);
 a:=0;
  repeat
    x:=x div 10;
    if (x=k) then inc(a);
  until x=0;
 writeln(a);
end.

Не хочет считать. Или я что-то не так делаю вообще? Напишите как проще будет сделать, пожалуйста.

Решение задачи: «Сколько цифр d в числе x»

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

var x,d,a:integer;
begin
 readln(x);
 readln(d);
 x:=abs(x);//чтобы было положительное
 a:=0;
 repeat
  if x mod 10=d then inc(a);
  x:=x div 10;
  until x=0;
 writeln(a);
end.

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

В начале объявляются три переменные: x, d и a, которые будут использоваться в программе.
Затем происходит считывание двух чисел: первое число считывается в переменную x, а второе число считывается в переменную d.
Далее происходит преобразование числа x в абсолютное значение с помощью функции abs(x), чтобы в дальнейшем учитывать только положительные числа.
Затем число a инициализируется нулем.
После этого начинается цикл repeat-until, который будет выполняться до тех пор, пока число x не станет равным нулю.
Внутри цикла происходит проверка: если остаток от деления числа x на 10 равен числу d, то к переменной a прибавляется единица.
Затем число x делится на 10 с помощью операции x div 10.
Цикл продолжается до тех пор, пока число x не станет равным нулю.
После окончания цикла число a выводится на экран с помощью функции writeln(a).