Hello!

 Hапоминаю : это есть перестановки. Скорость имхо неплохая - 9! за 86 сек.
 на 386DX40 и 21 сек. на Am486DX4-100. Модуль permut содержит процедуру
 permutation, perm.pas - маленький тест (запрашивается n, считается n!
 перестановок, печатается время счета).
 При первом вхождении в permutation(...) параметр s(string)=''.
 При дальнейшей работе -- s:текущая перестановка (#1..#n),
                          counter:оставшееся число перестановок.

 P.S. Делал я это в 94 году. Я его использую, в основном, при шифровке
 или дешифровке-методом-тыка. Или в "рюкзаке" :-).

 Have a good OS !
 Vladimir S. Lokhov

... Это письмо не достойно таглайна !
--- 2.5-мерный Дед
 * Origin: We breaks for nothing ! --Tula.WildStation-- (2:5022/18.14)