Расположить элементы главной диагонали матрицы в первом столбце, упорядочив их по убыванию - Pascal ABC

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

Помогите пожалуйста решить задачу в Pascal ABC, как можно быстрее. Дана матрица nxn. Расположить элементы главной диагонали матрицы в первом столбце, упорядочив их по убыванию.

Решение задачи: «Расположить элементы главной диагонали матрицы в первом столбце, упорядочив их по убыванию»

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

const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,x:integer;
begin
randomize;
repeat
write('Размер матрицы от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=2 to n do
 begin
  x:=a[i,1];
  a[i,1]:=a[i,i];
  a[i,i]:=x;
 end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i,1]<a[j,1] then
 begin
  x:=a[i,1];
  a[i,1]:=a[j,1];
  a[j,1]:=x;
 end;
writeln('Измененная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end.

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

Создается константа nmax, которая определяет максимальное значение для переменной n.
Создается переменная a типа array[1..nmax,1..nmax] of integer. Эта переменная представляет собой матрицу размером nmax на nmax.
Создаются три переменные: n, i и j. Переменная n используется для чтения размера матрицы от пользователя, а переменные i и j используются для итерации по матрице.
Выполняется цикл repeat-until, который запрашивает у пользователя размер матрицы и продолжает запрашивать новый размер, пока он не будет находиться в пределах от 2 до nmax.
Внутри цикла for i:=1 до n do выполняется итерация по строкам матрицы. В каждой итерации создается переменная x, которая используется для хранения элемента матрицы a[i,1].
После завершения итерации по строкам, переменная a[i,1] заменяется на x, а переменная x заменяется на a[i,i]. Таким образом, элемент a[i,1] перемещается на свою позицию на главной диагонали.
Выполняется цикл for j:=i+1 до n do, который итерирует по столбцам матрицы. Если a[i,1] меньше a[j,1], то элементы a[i,1] и a[j,1] меняются местами, используя переменную x.
После завершения итерации по столбцам, выполняется цикл for i:=1 до n-1 do, который итерирует по строкам матрицы. В каждой итерации переменная x заменяет a[i,1], а затем a[i,1] заменяется на x. Таким образом, элемент a[i,1] перемещается на свою позицию на главной диагонали.
Выводится измененная матрица, используя цикл for i:=1 до n do. Каждая итерация выводит элементы a[i,j] для j от 1 до n.
Конец программы.