Добавить в программу сортировку

[Anton94.by]

Нужно добавить в программу сортировку и чтобы выводило потом исходную матрицу. ( сортируем элементы столбцов ).
Тема: «Методы сортировок»

Выполнить задание по обработке матриц с использованием указанных методов сорти-ровок (согласно варианту).
Программу оформить с использованием подпрограмм (ввод, вывод, обработка, метод сортировки).
На печать выдавать всю исходную информацию, промежуточные результаты и преоб-разованную матрицу.

Задание: Дана действительная матрица A размерности . Если минимальный элемент мат-рицы расположен над главной диагональю, а максимальный элемент — под главной диаго-налью, то упорядочить столбцы матрицы по не убыванию методом линейного выбора с под-счетом. В противном случае матрицу оставить без изменения.

Program st;
var
a: array [1..7,1..7] of integer;
i,j, imin,jmin, imax,jmax,max, min : integer;
begin
   // заполнение матрицы
   randomize;
    for i := 1 to 7 do
      begin
        for j := 1 to 7 do
          begin
          a[i,j] := random(90);
          write(a[i,j]:3);
          end;
      writeln;    
      end;
    // поиск максимума и минимума
    max := a[1,1];
    min := a[1,1];
    imin := 1;
    jmin := 1;
    imax := 1;
    jmax := 1;
    for i := 1 to 7 do
        for j := 1 to 7 do
          begin
            if max < a[i,j] then
              begin
                imax := i;
                jmax := j;
                max := a[i,j];
              end;
            if min > a[i,j] then
              begin
                min := a[i,j];
                imin := i;
                jmin := j;              
              end;
      end;
   if imax < jmax then
    writeln('максимум выше')
    else
      if imax > jmax then
        writeln('максимум ниже')
        else writeln('максимум на диаганали');
   writeln('i = ', imax, ' j = ', jmax);     
   if imin < jmin then
    writeln('минимум выше')
    else
      if imin > jmin then
        writeln('минимум ниже')
        else writeln('минимум на диаганали'); 
   writeln('i = ', imin, ' j = ', jmin);
 // сортируем
 if (imin < jmin) and (imax > jmax) then
  writeln('сортируем')
    else writeln('оставляем без изменений');   
end.

[Anton94.by]

Нужно чтобы после всей программы выводило отсортированную матрицу или саму матрицу.

[ByAlex]

Сообщение от Anton94.by

Нужно чтобы после всей программы выводило отсортированную матрицу или саму матрицу.

Странно, всю программу почти что написали, а вывод не можете! Или просто Copy-Paste?

// вывод матрицы
for i:=1 to 7 do
begin
   for j:=1 to 7 do
      write(Arr[i],' ');
   writeln;
end;