Напечатать в столбик слова этого текста от последнего слова до первого

program Project1;
 
const
  //Множество разделителей.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
  S, Sw : String;
  i, Len, LenW, CntA : Integer;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    Writeln('Перечень слов от последнего - к первому:');
    Len := Length(S);
    LenW := 0;
    CntA := 0;
    //Перебор символов строки справа-налево:
    for i := Len downto 1 do begin
      //Пропускаем разделители.
      if S[i] in D then Continue;
      //Подсчёт длины слова.
      Inc(LenW);
      //Подсчёт количества букв "а" - учитываем русские и английские буквы.
      if S[i] in ['А', 'а', 'A', 'a'] then Inc(CntA);
      //Отслеживаем начало слова.
      if (i = 1) or (S[i - 1] in D) then begin
        //Слово.
        Sw := Copy(S, i, LenW);
        //Распечатка.
        Write('Слово: "', Sw, '"');
        if CntA = 3 then Write('. В этом слове 3 буквы "а".');
        Writeln;
        //Обнуление переменных.
        LenW := 0;
        CntA := 0;
      end;
    end;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.