решение задач на тексты

procedure TForm1.Button1Click(Sender: TObject);
const
  //Множество разделителей слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
  S : String;
  i, Len, LenW, LenM, PosM : Integer;
begin
  //Исходный текст.
  S := Memo1.Text;
 
  Len := Length(S);
  LenW := 0; //Длина очередного слова.
  LenM := 0; //Длина самого длинного слова.
  PosM := 0; //Позиция, с которой начинается первое из самых длинных слов.
  for i := 1 to Len do begin
    //Пропускаем разделители.
    if S[i] in D then Continue;
    //Учитываем очередной символ в длине слова.
    Inc(LenW);
    //Отслеживаем конец слова.
    if (i = Len) or (S[i + 1] in D) then begin
      if LenW > LenM then begin
        LenM := LenW;
        PosM := i - LenW + 1;
      end;
      LenW := 0;
    end;
  end;
 
  //Ответ.
  if PosM > 0 then
    ShowMessage('Первое из самых длинных слов: "' + Copy(S, PosM, LenM) + '".')
  else
    ShowMessage('В тексте нет слов.');
  ;
end;