Сортировка числел по убыванию. Массивы - Turbo Pascal

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

Здравствуйте! Прошу о помощи) Надо с помощью массивов сделать сортировку чисел от большего к меньшему, все перестановки надо показать, я честно попыталась это сделать, но безуспешно, прошу вас помочь разобраться) прилагается блок-схема

program massiv;
uses crt;
const n=10;
var 
a:array[1..n] of integer;
i,j,max,imax:integer;
procedure print;
var 
i:integer;
begin
for i:= 1 to n do
write (a[i] : 5);
writeln;
end;
begin
randomize;
for i:= 1 to n do 
a[i]:= random (10);
print;
for i:= 1 to n-1 do 
max:= a[i];
imax:=i;
for j:=2 to n do
repeat
begin
max:= a[j];
imax:=j;
end;
until 
a[j]<max;
for i:= 1 to n do
writeln (max.imax);
readln;
end

Спойлер

Решение задачи: «Сортировка числел по убыванию. Массивы»

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

program massiv;
uses crt;
const n=10;
var a:array[1..n] of integer;
   i,j,imax,buf:integer;
procedure print;
var i:integer;
begin
for i:= 1 to n do
write (a[i] : 5);
writeln;
end;
begin
clrscr;
randomize;
for i:=1 to n do
a[i]:= random (10);
print;
for i:=1 to n-1 do
 begin
  imax:=i;
  for j:=i+1 to n do
  if a[j]>a[imax] then imax:=j;
  buf:=a[i];
  a[i]:=a[imax];
  a[imax]:=buf;
  delay(1000);
  if i<n-1 then print
 end;
writeln('Сортировка завершена');
readln
end.

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

Создается программа massiv, которая использует библиотеку crt.
В программе объявляются следующие переменные: n - количество элементов в массиве (целое число), a - массив целых чисел (диапазон от 1 до n включительно), i - индекс текущего элемента массива, j - индекс следующего элемента массива, imax - максимальный индекс элемента массива, buf - временная переменная для хранения значения текущего элемента массива.
Создается процедура print, которая выводит значения элементов массива a на экран.
Запускается цикл, который заполняет массив a случайными числами в диапазоне от 1 до 10.
Выводится сообщение Сортировка завершена.
Программа завершается.