Дано натуральное число н подсчитайте сколько раз в нем встречается цифра а

var
n,a: string;
i, p: integer;
begin
  p:= 0;
  write('n='); read(n);
  write('a='); read(a);
  for i := 1 to length(n) do
  begin
    if n[i] = a then p:=p+1;
  end;
  writeln('В этом числе цифра ',a,' встречалась ',p,' раз.');
end.