Дано натуральное число....

Дано натуральное число. Определить сколько раз в нём встречается цифра а. на паскале с помощью оператора цикла:while
ББУДУ ОЧЕЕЕЕНЬ БЛАГОДАРНА

 

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.