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