Между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать слова больше 1

program Project1;
 
const
  //Разделители слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
  S : String;
  i, Len, LenW, Cnt : Integer;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
    
    Writeln('Перечень слов, в которых больше одного символа:');
    Len := Length(S);
    LenW := 0;
    Cnt := 0;
    for i := 1 to Len do
      if not (S[i] in D) then begin
        //Сюда мы попадаем, если символ не является разделителем.
        //Т. е., этот символ принадлежит слову.
        //Учитываем символ в длине слова.
        Inc(LenW);
        //Отслеживаем конец слова.
        if (i = Len) or (S[i + 1] in D) then begin
          //Если длина слова больше единицы, то распечатываем это слово.
          if LenW > 1 then begin
            Inc(Cnt);
            if Cnt > 1 then Write(', '); //В распечатке разделяем слова запятыми.
            Write( Copy(S, i - LenW + 1, LenW) ); //Распечатка очередного слова
          end;
          LenW := 0; //Сброс длины слова.
        end;
      end;
 
    if Cnt = 0 then
      Writeln('В тексте нет ни одного слова с длиной больше единицы.')
    else
      Writeln;
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.