Дана строка, состоящая из слов. Удалить из строки все слова, в которых хотя бы одна буква встречается дважды - Delphi - Ответ 3589765

procedure TForm1.Button1Click(Sender: TObject);
const
  //Множество разделителей слов.
  D = [' ', '.', ',', ':', ';', '!', '?', '-', #9, #10, #13];
var
  S : String;
  i, Len, LenW : Integer;
  Da : set of Char;
  Ch : Char;
  F : Boolean;
begin
  //Исходный текст.
  S := Memo1.Text;
 
  Len := Length(S);
  LenW := 0;
  Da := [];
  F := False;
  //Перебор символов строки ведём от конца строки - к началу. Это нужно для того,
  //чтобы алгоритм не зависел от изменений длины строки.
  for i := Len downto 1 do begin
    //Пропускаем разделители.
    if S[i] in D then Continue;
    //Учитываем очередную букву в длине слова.
    Inc(LenW);
    //Приводим букву к верхнему регистру.
    Ch := AnsiUpperCase(S[i])[1];
    //Если очередная буква уже есть в множестве, то устанавливаем флаг F в True.
    if (not F) and (Ch in Da) then F := True;
    //Добавляем очередную букву во множество.
    Da := Da + [Ch];
    //Отслеживаем начало слова.
    if (i = 1) or (S[i - 1] in D) then begin
      //Если в слове есть повторы букв, то удаляем его.
      if F then Delete(S, i, LenW);
      //Сброс флага, обнуление длины слова и обнуление множества.
      F := False;
      LenW := 0;
      Da := [];
    end;
  end;
 
  //Показываем результат.
  Memo2.Text := S;
end;