[Electronic_Arts]

Есть буквы ABC как получить всевозможные варианты записи этих 4 букв

ABC
ACB
BAC
BCA
CAB
CBA

Так как текст может быть и не ABC...

Код:

function faktorial(n: Integer): Integer;
begin;
if((n=0)OR(n=1))
 then Result:=1
 else Result:=n*faktorial(n-1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
variants, i:integer;
begin
i:=length(edit1.Text); //Длина текста
variants:=faktorial(i); //Получаем макс. значение цикла
for I := 1 to variants do
begin
{тут должен быть код который поменяет местами буквы
так что бы не было одинаковых}
end;
end;