Упорядочить главную диагональ матрицы по возрастанию - Turbo Pascal

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

подскажите как упорядочить главную диагональ по возрастанию. Массив готов.

 program v7;
    uses crt;
      const n=100;
    var d : array[1..8,1..8] of integer;
  i,j,l: integer;
  f:text;
 
 begin
  randomize;   
  clrscr;
   writeln(' файл input.dat создан ');   {создание файла}
  for i:=1 to 8 do
    begin
    for j:=1 to 8 do
       begin
       d[i,j]:=random(19);
       d[i,j]:=d[i,j];
       write(d[i,j]:5);
       end;
       writeln;
  end;
  assign (f,'input.dat');
rewrite(f);
for i:=1 to 8 do
begin
for j:=1 to 8 do
write(f,d[i,j]:5);
writeln(f);
end;
 
close(f);
 
     end.

[QUOTE=andrey-m11;4623001]подскажите как упорядочить главную диагональ по возрастанию. Массив готов. усё сделал сам уже... получилось...

Решение задачи: «Упорядочить главную диагональ матрицы по возрастанию»

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

for i:=1 to 7 do
   for j:=i+1 to 8 do
    if (d[i,i]>d[j,j]) then
     begin
        temp:=d[i,i];
        d[i,i]:=d[j,j];
        d[j,j]:=temp;
     end;

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

В данном коде происходит сортировка главной диагонали матрицы по возрастанию. Вложенный цикл for идет от i=1 до 7 и от i+1 до 8. Внешний цикл for выполняется 7 раз, внутренний цикл выполняется 6 раз (так как i+1 равно j). Если элемент в текущей ячейке главной диагонали (d[i,i]) больше элемента в смежной ячейке (d[j,j]), то происходит обмен этих элементов. В переменной temp хранится значение элемента из текущей ячейки, которое затем присваивается значению элемента в смежной ячейке, а значение элемента в смежной ячейке присваивается значению элемента в текущей ячейке. Таким образом, после выполнения данного кода, главная диагональ матрицы будет упорядочена по возрастанию.