Определить максимальный элемент из минимумов каждой четверти матрицы (четверти образованы диагоналями)

Uses crt;
Const nmax = 100;
Var
  a: array[1..nmax,1..nmax] of integer;
  i,j,n: byte;
  maxim,min1,min2,min3,min4: integer;
 
Function Max(a,b: integer): integer;
  begin
    If a>b then max:=a else max:=b;
  end;
 
Begin
  Repeat
    Write('Введите n (до ',nmax,') : ');
    Readln(n)
  Until n in [1..nmax];
  Writeln('Матрица');
  For i:=1 to n do
    begin
      For j:=1 to n do
        begin
          a[i,j]:=random(101)-50;
          Write(a[i,j]:4);
        end;
      Writeln;
    end;
  Writeln;
  
  min1:=a[1,2];
  For i:=1 to n do
  For j:=1 to n do
    If (j<n-i+1) and (j>i) and (a[i,j]<min1) then min1:=a[i,j];
 
  min2:=a[2,1];
  For i:=1 to n do
  For j:=1 to n do
    If (j<n-i+1) and (j<i) and (a[i,j]<min2) then min2:=a[i,j];
 
  min3:=a[2,n];
  For i:=1 to n do
  For j:=1 to n do
    If (j>n-i+1) and (j>i) and (a[i,j]<min3) then min3:=a[i,j];
 
  min4:=a[n,2];
  For i:=1 to n do
  For j:=1 to n do
    If (j>n-i+1) and (j<i) and (a[i,j]<min4) then min4:=a[i,j];
 
  maxim:=max(max(min1,min2),max(min3,min4));
  Writeln('Максимальный из 4 минимальных: ',maxim);
  Readkey
End.