Генерация перестановок

[vereney]

Посредством МИНИМАЛЬНО ВОЗМОЖНЫХ ПЕРЕСТАНОВОК! – сгенерировать последовательно возрастающие (лексикографически) наборы, вплоть до последнего, в котором все элементы упорядочены по убыванию.
НАпример,Перестановки должны быть в
лексикографическом порядке, как слова в словаре. Например,
если это множество {1,2,3,4}:
1 2 3 4
1 2 4 3
1 3 2 4
1 3 4 2
2 1 3 4
2 1 4 3
2 3 1 4
2 3 4 1
А У меня получилось по другому(((.Подскажите, пожалуйста, какой способ применить?

procedure sort_current_array(sort_abc: boolean); {Процедура сортировка выбранного массива}
var
  temp,j,i,k:integer;
begin
  clrscr;
  if sort_abc=true then
  begin
  for i:=1 to number_of_elements1 do
    for j:=1 to number_of_elements1-i do
      if current_array[j]>current_array[j+1] then
        begin
          temp:=current_array[j];
          current_array[j]:=current_array[j+1];
          current_array[j+1]:=temp;
          k:=k+1;
          write('Перестановка №', k,': ');
          write_current_array();
        end;

:confused:

[VadikV]

что значит по другому? отсортировалось по возрастанию? тогда смени условие

if current_array[j]>current_array[j+1] then

на

if current_array[j]<current_array[j+1] then

и будет по убыванию

[vereney]

по другому получилось-это вот так -
3,4,2,4
3,2,4,1
3,2,1,4
2,3,1,4
То что вы предложили не подходит((,увы

[skgwazap]

тут
или тут, но С