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

program Project1;
 
const
  (*Множество разделителей.*)
  D = [' ', '.', ',', ':', ';', '!', '?', '-', #9, #10, #13];
var
  S, StrWord : String;
  i, Len, Pos1, Pos2 : Integer;
begin
  repeat
    Writeln('Введите строку:');
    Readln(S);
 
    Len := Length(S);
    StrWord := '';
    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 ['А', 'а'] then begin
          Pos2 := i;
          (*Берём копию слова из строки.*)
          StrWord := Copy(S, Pos1, Pos2 - Pos1 + 1);
          (*Выходим из цикла обработки строки.*)
          Break;
        end;
      end;
    end;
 
    if StrWord <> '' then begin
      Writeln('Первое слово, удовлетворяющее условию:');
      Writeln(StrWord);
    end else begin
      Writeln('Слов, удовлетворяющих условию не найдено.');
    end;
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.