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

uses crt;
const pr: set of char=[' ','(',',','.',';',':','-'];
var s: string;
    i,k: byte;
begin
write('s='); readln(s);
if (s[1]='B') or (s[1]='b') then inc(k);
for i:=2 to length(s) do
    if ((s[i]='B') or (s[i]='b')) and (s[i-1] in pr) then inc(k);
writeln('Слов на B(b): ',k);
readln;
end.