Ищу оптимальный алгоритм комбинаций n элементов

Найти перестановки для (n - 1) элемента и для каждой перестановки повтыкать n-ый элемент между элементами этой перестановки. А в чем вопрос-то вообще? Как реализовать поиск перестановок на языке программирования?

Для меня перестановка - это то, что написано в статье [1]. Будь добр, поделись, что такое комбинация, и чем она отличается от перестановки.

Да легко.
const t = 20;
var n: integer;
   a: array[1..t] of integer; {типа массив для вывода}
   b: array[1..t] of boolean; {типа массив, чтобы помечать числа, которые уже участвуют в перестановке}
procedure go(k: integer); {типа мегапроцедура, которая нам всё напечатает, параметр указывает на номер числа, который нужно запихнуть в массив}
var i: integer; {клевая локальная переменная}
begin
   if k = n + 1 then begin {ежели пихать числа уже некуда, выводим}
       for i := 1 to n do write(a[i], ' '); {типа сам вывод}
       writeln; {Was ist das???}
       exit; {больше в процедуре делать не фиг}
   end;
   for i := 1 to n do begin {бежим по массиву b}
       if not b[i] then begin {и, о чудо, находим число, которое еще не взяли}
           a[k] := i; {таки запихиваем его массив}
           b[i] := true; {и помечаем, что взяли его}
           go(k + 1); {мегапроцедура, вперед!}
           b[i] := false; {попользовался числом - положи на место}
       end;
   end;
end;
begin
   readln(n); {читаем число}
   go(1); {и попестофали}
end.