Определить, сколько раз встречается в тексте самое короткое слово

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