Найти количество слов, начинающихся с буквы "б"

for i:=1 to length(s)-1 do
if copy(s,i,2)=' б' then
inc(k);

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.

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