Дана строка, содержащая английский текст. Найти количество слов, начинающихся с буквы b. — Pascal(Паскаль)

var
 s:string;
 i,k:integer;
begin
 readln(s);
 s:=' '+s;
 for i:=1 to length(s) do
  if copy(s,i,2)=' b' then inc(k);
 writeln(k);
end.