Дана строчка.Подсчитать количество слов ,начинающихся с буковкы Б

program zz1;
var s:string; // задаем переменную строкового типа
i, k:integer; // задаем переменные целого типа
begin
write( введите строчку );
read(s); // вводим с клавиатуры строчку
s:= +s; // добавим в начало строчки пробел
for i:=1 to length(s)-1 do // организуем цикл, в котором переберем все символы от первого до предпоследнего
if s[i]= then if (s[i+1] = Б) or (s[i+1]=б) then k:=k+1; // находим пробел и проверяем последующую букву
write(количество слов начинающихся на "б" = , k);
end.