Выполнить сортировку массива по убыванию (или по возрастанию) - Turbo Pascal

Формулировка задачи:

Выполнить сортировку массива по убыванию (или по возрастанию). Как оказалось, в книге Паскаль для школьников тема сортировки вообще не затронута. Исходный массив:

uses Crt;
const n = 10;
var a: array [1..10] of integer;
          i: integer;
begin
ClrScr;
   for i:= 1 to n do begin
     a[i]:= Random(50) – 5;
      write(a[i]:3);
      end;
    readln
   end.

На выходе имеем исходный массив:

-5  -4   38     5     8   28   10     3   13   16

Просьба сделать образец сортировки.

Решение задачи: «Выполнить сортировку массива по убыванию (или по возрастанию)»

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

for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;

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

В данном коде происходит сортировка массива по убыванию. Вот список действий, которые происходят в коде:

Два вложенных цикла for выполняются от i=1 до n-1 и от j=i+1 до n, где n - это количество элементов в массиве.
Если элемент a[i] больше элемента a[j], то выполняется следующая последовательность действий:
- Значение переменной x присваивается значению переменной a[i].
- Значение переменной a[i] присваивается значению переменной a[j].
- Значение переменной a[j] присваивается значению переменной x.
Эти действия повторяются для всех пар элементов, удовлетворяющих условию, пока массив не будет отсортирован по убыванию.