метод линейного выбора сортировки массива

[shbn]

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


Program lab2_3;
uses
crt;
var
A : array[1..100, 1..100] of integer;
n, i, j, max_1,max_2, : integer;
begin
clrscr;
write ( 'размерность* N=' );
readln (N);
writeln ( 'введите элементы*' );
for i := 1 to n do
for j := 1 to n do
begin
write ( 'A[' , i, j, ']=' );
readln ( A[ i, j] );
end;

clrscr;
writeln ( 'массив A: ' );
for i := 1 to n do
begin
for j:= 1 to n do
write ( A[ i, j ] : 5 );
writeln;
end;
max_1:=A[1,n];
for i:=2 to n do
for j:=1 to n do
if (A[i,j]>max_1) and (i <= j)
then max_1:=A[i,j];
max_2:=A[1,n];
for i:=2 to n do
for j:=1 to n do
if (A[i,j]>max_2) and (i >= j)
then max_2:=a[i,j];
if max_1>max_2 then

что дальше?