Для упорядочения элементов массива А в порядке убывания можно использовать сортировку пузырьком или быструю сортировку. Ниже приведен пример использования быстрой сортировки для упорядочения элементов массива в порядке убывания на языке Pascal ABC:

program SortDescending;
const
N = 5;
type
TArray = array[1..N] of Integer;
var
A: TArray;
procedure QuickSort(var A: TArray; L, R: Integer);
var
i, j, X, temp: Integer;
begin
i := L;
j := R;
X := A[(L + R) div 2];
repeat
while A[i] > X do
i := i + 1;
while A[j] < X do
j := j - 1;
if i <= j then
begin
temp := A[i];
A[i] := A[j];
A[j] := temp;
i := i + 1;
j := j - 1;
end;
until i > j;
if L < j then QuickSort(A, L, j);
if i < R then QuickSort(A, i, R);
end;
var
i: Integer;
begin
Randomize;
// Заполнение массива случайными значениями
for i := 1 to N do
A[i] := Random(100);
// Вывод исходного массива
writeln('Исходный массив:');
for i := 1 to N do
write(A[i], ' ');
writeln;
// Сортировка массива в порядке убывания
QuickSort(A, 1, N);
// Вывод отсортированного массива
writeln('Массив в порядке убывания:');
for i := 1 to N do
write(A[i], ' ');
end.

В данном примере массив размером N заполняется случайными значениями, затем используется быстрая сортировка для упорядочения элементов в порядке убывания. Реализация быстрой сортировки осуществляется рекурсивно.