Все возможны перестановки букв в слове, без повторений Опции

[Bokul]

Входные данные: строка любой длинны.
Выходные: вывести на екран все возможные комбинации букв входной строки.
Пример:
строка - абв
Результат - абв, авб, бав, бва, ваб, вба

Не получается никак сделать общий вариант - для неизвестной длинны входной строки. Вот пример для пятисимвольной.

uses crt;
var i,j,k,n,m:byte;
    word,buf,s:string;
    num:integer;
begin
clrscr;
writeln('Enter word');
readln(word);
writeln('Result:');
num:=0;
for i:=1 to 5 do
    for j:=1 to 5 do
        if j<>i then
           for k:=1 to 5 do
               if (k<>i) and (k<>j) then
                   for n:=1 to 5 do
                       if (n<>i) and (n<>j) and (n<>k) then
                          for m:=1 to 5 do
                              if (m<>i) and (m<>j) and (m<>k) and (m<>n) then
                                 begin
                                      buf:=word[i]+word[j]+word[k]+word[n]+word[m];
                                      writeln(buf);
                                      inc(num);
                                 end;
writeln('Finish');
writeln('Number of combination is ',num);
readln;
end.

Сообщение отредактировано: Bokul - 20.11.2006 2:01