program Project1;
uses crt;
const
//Разделители слов.
D =['.',',',':',';','!','?','-',' ', #9, #10, #13];
var
S :String;
i, Cnt, Len :Integer;
begin
repeat
Writeln('Задайте строку:');
Readln(S);
Len := Length(S);
Cnt :=0;
for i :=1to Len dobegin
//Пропускаем разделители.
if S[i]in D then Continue;
//Отслеживаем начало слова.
if(i =1)or(S[i -1]in D)thenbegin
if S[i]in['a','A']then Cnt := Cnt +1;
end;
end;
Writeln('В заданной строке найдено ', Cnt,' слов,');
Readln(S);
until S <> '';
end.