Дано натуральное число n. Сколько цифр в этом числе встречается один раз. (PascalABC.NET)

Program CountA;

Uses Crt;

var a,n,x,i:integer;

begin

clrscr;  // очищаем экран

write('Введите число n:');

readln(n); // ввод данных

write('Введите цифру а: ');

readln(a);  // ввод данных

x:=1; i:=0;  i-счётчик цифр а  

while (n<>0) do // Пока n не стало равным нулю

begin

    x:=n mod 10; // в x остаток от деления на 10 т.е -отдельная цифра числа  

   if (a=x) then i:=i+1; если есть совпадение то i увеличиваем на 1 

   n:=n div 10; переходим к следующему разряду числа (сотни десятки единицы)

 end;

writeln('Цифра ',а,' Встречается в данном числе-', i, ' раз(а)');

readkey; // Пауза до нажатия на любую клавишу

end.

Не знаю, правильно или нет‍♀️