Дана строка, состоящая из русских слов, набранных заглавными буквами и разделенных пробелами (одним или несколькими). Найти количество слов, которые содержат хотя бы одну букву «А».

Pascal var   s : string;   k,i,l : integer;   p : boolean; begin  readln (s);  l := Length(s);  p := true;   for i := 1 to l do    begin     if (s[i] = 'А') and (p) then      begin       k := k +1;       p := false;      end;     if s[i] = ' ' then      p := true;    end;  writeln (k); end.