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

program sasha0808;
{$APPTYPE CONSOLE}
uses SysUtils;
type arr = array [1..5,1..5]of Integer;
var mas:arr;
    max_i,max_j,i,j,max:Integer;
 
procedure array_in;
begin
  for i:=1 to 5 do
    begin
      for j:=1 to 5 do
        begin
          write('Array [',i,'][',j,'] = ');Readln(mas[i,j]);
        end;
    end;
end;
procedure array_out;
begin
  for i:=1 to 5 do
    begin
      for j:=1 to 5 do
        begin
          write(mas[i,j],' ');
        end;
      Writeln;
    end;
end;
procedure array_max;
begin
  for i:=1 to 5 do
    begin
      for j:=1 to 5 do
        begin
          if ((1<=i) and(i<=3) and ((1<=j) and (j<=2))) then
            begin
 
            end
          else
            begin
              if (max<mas[i,j]) then
                begin
                  max:=mas[i,j];
                  max_i:=i;
                  max_j:=j;
                end;
            end;
        end;
    end;
end;
begin
  array_in;
  Writeln(' Array ');
  array_out;
  max:=mas[1,4];max_i:=1;max_j:=4;
  array_max;
  Writeln('Max = ',max,'[',max_i,',',max_j,']');
  readln;
end.