Сортировка массива целых чисел A(n) по убыванию(используя метод обменная сортировка) - Turbo Pascal

Помогите написать программу для сортировки массива целых чисел A(n) по убыванию(используя метод обменная сортировка). Или хотя бы без этого метода.

Листинг программы

if q[x] <= q[y] then

Объяснение кода листинга программы

Переменная q представляет собой массив целых чисел, который нужно отсортировать.
Переменные x и y используются для сравнения элементов массива q.
В условии if проверяется, что элемент q[x] меньше или равен элементу q[y]. Это означает, что текущий элемент q[x] должен быть помещен перед элементом q[y] при выполнении операции обмена.
Если условие истинно, то происходит операция обмена между элементами q[x] и q[y]. Это означает, что элементы меняются местами.
После выполнения операции обмена, проверяется условие снова. Если оно все еще истинно, то процесс повторяется для следующих элементов до тех пор, пока массив не будет полностью отсортирован.