Дана матрица,отсортировать каждую строку матрицы в порядке возрастания,в ней найти макс элемент расположенный выше главной диагонали — Pascal(Паскаль)

uses crt;
var
   a:array[1..5,1..5] of integer;
   i,q,j,r,max:integer;
begin
clrscr;
writeln('-');
randomize;
for i:=1 to 5 do
 begin
  for j:=1 to 5 do
   begin
    a[i,j]:=random(51)-10;
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln('-');
for i:=1 to 5 do
 for q:=1 to 4 do
  for j:=1 to 5-q do
   if (a[i,j]>=a[i,j+1]) then
    begin
     r:=a[i,j];
     a[i,j]:=a[i,j+1];
     a[i,j+1]:=r;
    end;
max:=0;
for i:=1 to 5 do
 begin
  for j:=1 to 5 do
   begin
    write(a[i,j]:4);
    if (i<j) and (a[i,j]>=max) then max:=a[i,j];
   end;
  writeln;
 end;
writeln('- ',max);
readln
end.