Дана строка, состоящая из русских слов, набранных большими знаками и разделенных

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.