Определить максимальный из элементов расположенных выше главной диагонали — Pascal(Паскаль)

Program zad_5_newint;
 uses crt;
const n=100;
var a:array[1..n,1..n] of integer;
    i,j,max:integer;
begin
 clrscr;
 randomize;
  for i:=1 to n do
  for j:=1 to n do
   begin
    a[i,j]:=random(n);
    write(a[i,j]);
   end;
  writeln;
  max:=a[1,1];
  for j:=1 to 5 do
  for i:=1 to 5 do 
   if (i<j) and (a[i,j]>max) then max:=a[i,j];
  writeln(max);
 readln;
end.