Найти максимальный элемент среди элементов матрицы, лежащих выше главной диагонали

uses crt;
var s,sn: string;
    i,j,k:integer;
 
begin
write('s=');
readln(s); sn:='';
for i:=1 to length(s) do
    begin
    k:=0;
    for j:=1 to length(s) do
        if s[i]=s[j] then inc(k);
    if k=1 then sn:=sn+s[i];
    end;
writeln('Cимволы, встречающиеся по 1 разу: ',sn);
end.

Program n1;
Const n=7;
Var a:array[1..n,1..n] of integer;
    i,j,max,sum:integer;
Begin
 Randomize;
 writeln('Masiv:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(100);
     write(a[i,j]:3);
    end;
   writeln;
  end;
 sum:=0;max:=a[1,1];
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if i=j then sum:=sum+a[i,j];
     if i+j<n then
      if a[i,j]>max then max:=a[i,j];
    end;
  end;
 writeln('sum=',sum,' max=',max);
 if sum=max then writeln('Ravnie znacheniya') else
  if max>sum then writeln('Bolshe max') else writeln ('Bolshe sum');
End.

...
 sum:=0;max:=a[1,2];//1 el. vyshe glavnoi
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if i=n-j+1 then sum:=sum+a[i,j];//pobochnaya diagonal
     if j>i then//vyshe glavnoi
      if a[i,j]>max then max:=a[i,j];
    end;
  end;
...