Дана матрица (N,M) найти максимум среди элементов,расположенных выше главной диагонали

uses crt;
var a : array [1..10,1..10] of integer;
    i,j,n,max : integer;
begin
 clrscr;
 randomize;
 write('n = ');
 readln(n);
 for i := 1 to n do
  for j := 1 to n do
   begin
    a[i,j] := random(20);
   end;
 writeln;
 for i := 1 to n do
  begin
   for j := 1 to n do
    begin
     write(a[i,j]:3);
    end;
   writeln;
  end;
 max := a[1,1];
 for i := 1 to n do
  for j := 1 to n do
   begin
    if (a[i,j] > max) and (i = j) then
     max := a[i,j];
   end;
 writeln;
 writeln('Max = ',max);
 readln;
end.

program laba18;
uses crt;
var
a:array[1..200,1..200] of integer;
i,j,n,max:integer;
begin
clrscr;
writeln('Введите размер матрицы');
write('->');
readln(n);
for i:=1 to n do
  begin
  for j:=1 to n do
    begin
    a[i,j]:=random(20);
    end;
  end;
  
max:=a[1,2];
for i:=1 to n do
  begin
  for j:=1 to n do
    begin
    if (i+j>i+i) and (a[i,j]>max) then max:=a[i,j];
    write(a[i,j]:3);
    end;
  writeln;
  end;
Writeln('Максимальный элемент расположеный выше главной диагонали - ',max);
end.

for j:=1 to n do
    begin
    if (j>i) and (a[i,j]>max) then max:=a[i,j];