Найти наибольший элемент заштрихованной части матрицы

var
  a: array[1..20,1..20] of integer;
  n,i,j,imax,jmax: integer;
begin
  write('Enter n: ');
  readln(n);
  writeln('Matrix:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  imax:=1; jmax:=1;
  for i:=1 to n do
    for j:=1 to n+1-i do
      if a[i,j]>a[imax,jmax] then
      begin
        imax:=i;
        jmax:=j;
      end;
  writeln('Max = a[',imax,',',jmax,'] = ',a[imax,jmax]);
  readln;
end.

  for i:=1 to n-1 do
    for j:=1 to n-i do

uses crt;
const nmax=15;
var a: array [1..nmax,1..nmax] of integer;
    n,i,j,imax,jmax: byte;
    
begin
imax:=1;
jmax:=1;
repeat
write('n='); readln(n);
until n in [1..nmax];
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        a[i,j]:=random(199)-99;
        write(a[i,j]:4);
        if (i+j<=n+1) then
           if a[i,j]>a[imax,jmax] then
              begin
              imax:=i; jmax:=j;
              end;
        end;
    writeln;
    end;
write('Макс. элемент ',a[imax,jmax],' в строке ',imax,' в столбце ',jmax);
readln;
end.