Строка: Составьте программу, определяющую, на какую букву начинается второе слово в предложении.

program Project1;
 
const
  {Разделители слов.}
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
  {Множество гласных букв.}
  Da = [
    {Русские гласные буквы.}
    'а', 'я', 'о', 'ё', 'ы', 'и', 'э', 'е', 'у', 'ю',
    'А', 'Я', 'О', 'Ё', 'Ы', 'И', 'Э', 'Е', 'У', 'Ю',
    {Гласные буквы латиницы.}
    'a', 'e', 'i', 'o', 'u', 'y',
    'A', 'E', 'I', 'O', 'U', 'Y'
  ];
var
  S, Sw : String;
  i, Len, LenW, Cnt : Integer;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    Len := Length(S);
    Cnt := 0; {Номер очередного слова.}
    LenW := 0; {Длина очередного слова.}
    Sw := ''; {Слово задом-наперёд.}
    for i := 1 to Len do
      {Если символ не является разделителем (т. е., он принадлежит слову.}
      if not (S[i] in D) then begin
        {Учитываем очередной символ в длине слова.}
        Inc(LenW);
        {Переворачиваем слово.}
        Sw := S[i] + Sw;
        {Отслеживаем конец слова.}
        if (i = Len) or (S[i + 1] in D) then begin
          Inc(Cnt);
          if Cnt = 1 then begin
            Writeln('Длина первого слова: ', LenW);
            Writeln('Первое слово задом-наперёд: ', Sw);
            if S[i - LenW + 1] in Da then
              Writeln('Предложение начинается с гласной буквы.')
            else
              Writeln('Предложение начинается НЕ с гласной буквы.');
            Break;
          end;
          {Сброс сведений о слове.}
          LenW := 0;
          Sw := '';
        end;
      end;
 
    if Cnt = 0 then
      Writeln('В тексте нет слов.');
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.