Написать программу, которая выводит слова с одинаковыми буквами

[Tarne]

Например, вводим слово aamm, кол-во последующих N слов. Дальше вводим N слов попорядку. Например, вводим: mama, papa, amam, am. Нужно вывести слова, где есть такие же буквы, как в первом введеном слове и чтобы количество букв совпадало тоже. Т.е. должны вывестись mama, amam.

[Stilet]

Хм... Как по мне - напиши функцию сортировки строки, и потом просто сравнивай, если строки равны то значит и по буквам совпадают

function sos(S:String):String;
var q,w:integer; c:char; res:String;
begin res:=s;
 for q:=1 to Length(res) do
  for w:=q to Length(res) do
   if res[q]>res[w] then begin c:=res[q];res[q]:=res[w];res[w]:=c;end;
 sos:=res;
end;

И сравнение

if sos('mama')=sos('aamm') then подходит

Идея понятна?

[Tarne]

Спасибо большое, я понял. Однако, как сравнить не определенные слова, а любые, от болды, с заданным изначально словом. И так, чтоб кол-во сравниваемых слов было любым?