Сортировки, пирамидальная и сортировка подсчетом Опции

[Sensitive]

Здравствуйте!
В разделе FAQ нашла исходники методов сортировок, и в книгах прочитала про них (пирамидальная и сортиртировка подсчетом). Возник вопрос - а как отсортировать этими методами сортировок массив по убыванию элементов? Я не поняла каким образом это делается... не подскажите?
Благодарю.

[volvo]

Начнем с сортировки подсчетом: в реализации отсюда достаточно изменить строку, заполняющую отсортированный массив в процедуре CountingSort:

{ For i:=1 to size do m[i]:=new_m[i]; }
For i:=1 to size do m[size-i+1]:=new_m[i];

Ну, а для HeapSort из нашего FAQ-а можно заменить знак операции сравнения на противоположный в двух местах в процедуре Sift:

  Procedure sift;
  Var i, j: Integer;
  Begin
    i := Left; j := 2*i; x := ar[i];
    While j <= Right Do Begin
      If j < Right Then { * }
        If ar[j] > ar[Succ(j)] Then Inc(j);

      If x <= ar[j] Then Break; { * }
      ar[i] := ar[j];
      i := j; j := 2 * i
    End;

    ar[i] := x
  End;

Вот и все... И первое и второе изменения проверены и работают: массив сортируется по убыванию...

[Sensitive]

В пирамидальной меняла-меняла знаки, а так как нужно было и не делала...
Большое спасибо.