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

{$MODE TP}
type
    TLine = Array[Byte] Of ShortInt;
    TArray = Array[Byte] Of TLine;
procedure PrintArray(const ar: TArray; const n, m: Byte);
var
    i, j: Byte;
begin
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
            Write(ar[i, j]:3);
        WriteLn;
    end;
    WriteLn;
end;
 
procedure InitArray(var ar: TArray; var n, m: Byte);
var
    i, j: Byte;
begin
    repeat
        Write('Input n(1..127, odd)=');
        ReadLn(n);
    until ((n in [1..127]) And Odd(n));
    m := n; Randomize();
    for i := 0 to n - 1 do
        for j := 0 to m - 1 do
            ar[i, j] := Random(19) - 9;
    PrintArray(ar, n, m);
end;
 
function Zad1(const ar: TArray; const n, m: Byte): ShortInt;
var
    i, j, iMax, jMax: Byte;
begin
    iMax := 0; jMax := 0;
    for i := 0 to n - 1 do
        for j := 0 to m - 1 do
            if ((((j <= i) And (i <= n div 2)) Or ((j >= i) And (i >= n div 2)) Or ((j + i + 1 >= n) And (i <= n div 2)) Or ((j + i + 1 <= n) And (i >= n div 2))) And (ar[i, j] > ar[iMax, jMax]))
            then
            begin
                iMax := i;
                jMax := j;
            end;
    WriteLn('Max: array[', iMax + 1, '][', jMax + 1, ']=', ar[iMax, jMax]);
    Zad1 := ar[iMax, jMax];
end;
 
procedure Zad2Lines(var ar: TArray; var n: Byte; const m: Byte);
    function LineHaveZero(const l: TLine; const m: Byte): Boolean;
    var
        j: Byte;
        Result: Boolean;
    begin
        Result := False; j := 0;
        while ((j < m) And (Not Result)) do
        begin
            Result := (l[j] = 0);
            Inc(j);
        end;
        LineHaveZero := Result;
    end;
var
    i, k: Byte;
begin
    i := 0;
    while (i < n) do
    begin
        if LineHaveZero(ar[i], m)
        then
        begin
            for k := n downto i + 1 do
                ar[k] := ar[k - 1];
            Inc(n);
            ar[i] := ar[0];
            Inc(i);
        end;
        Inc(i);
    end;
    PrintArray(ar, n, m);
end;
 
procedure Zad2Columns(var ar: TArray; const n: Byte; var m: Byte);
    function ColumnHaventZero(const ar: TArray; const n, j: Byte): Boolean;
    var
        i: Byte;
        Result: Boolean;
    begin
        Result := True; i := 0;
        while ((i < n) And Result) do
        begin
            Result := (ar[i, j] <> 0);
            Inc(i);
        end;
        ColumnHaventZero := Result;
    end;
var
    i, j, k: Byte;
begin
    j := 0;
    while (j < m) do
    begin
        if ColumnHaventZero(ar, n, j)
        then
        begin
            for k := m downto j + 2 do
                for i := 0 to n - 1 do
                    ar[i, k] := ar[i, k - 1];
            Inc(m);
            for i := 0 to n - 1 do
                ar[i, j + 1] := ar[i, 0];
            Inc(j);
        end;
        Inc(j);
    end;
    PrintArray(ar, n, m);
end;
 
var
    ar: TArray;
    n, m: Byte;
begin
    InitArray(ar, n, m);
    Zad1(ar, n, m);
    Zad2Lines(ar, n, m);
    Zad2Columns(ar, n, m);
end.

uses Crt;
const n=7;
var
  a: array [1..n,1..n] of Integer;
  i, j: Integer;
begin
  Randomize;
  for i:=1 to n do begin
    for j:=1 to n do begin
      if ((i>j) xor (i>n-j)) or (i=j) or (i=n-j+1) then
        TextAttr:=Red else TextAttr:=LightGray;
      a[i,j]:= Random(100); Write(a[i,j]:4);
    end; WriteLn;
  end;
end.