Работа со строками

[FunnyDev1l]

Ребят кому не сложно помогите пожалуста!!
Задача: Дано предложение P. Найти в нем два слова W1 и W2, из которых W1 есть обращение W2(пример: корова-W1,аворок-W2)
язык Delphi
заранее спс

[NiCola999]

составляешь критерий для распознования слов, читаешь строку игнорируя пробелы, сравниваешь, выводишь ответ. Самое сложное это первое)

[FunnyDev1l]

Сообщение от NiCola999

составляешь критерий для распознования слов, читаешь строку игнорируя пробелы, сравниваешь, выводишь ответ. Самое сложное это первое)

да не говори...это как раз и не получается

[sabbathist]

Для удобного сравнения можно посортировать все символы в слове, и тогда просто сравнивать слова на равенство.

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var sl:tstringlist;
    s:string;
    i,j,a:integer;
begin
 sl:=tstringlist.Create;
 sl.Assign(memo1.Lines);
 sl.Delimiter:=' ';
 sl.DelimitedText:=sl[0];
 for i:=0 to sl.Count-1 do
 begin
  s:= ReverseString(sl[i]);
  if i<sl.Count-1 then a:=i+1 else a:=i;
  for j := i to sl.Count-1 do
  if s = sl[j] then memo1.Lines.Add(sl[i]+' '+sl[j]);
 end;
 sl.Free;
end;