Дана матрица A(N,N). Определить наибольшее из значений элементов, расположенных, в красной части матрицы — Pascal(Паскаль)

var
  a:array[1..100,1..100]of integer;
  i,j,max,n:integer;
begin
  write('vvedite razmer matrici: ');
  readln(n);
  for i:=1 to n do
  for j:=1 to n do
  begin
    write('vvedite ',j,' element ',i,' stroki: ');
    readln(a[i,j]);
  end;
  max:=a[1,n];
  writeln('vivod matrici');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if not((i>n div 2) and (j>n div 2))
        and ((i>2) or (j>2)) and (a[i,j]>max) then max:=a[i,j];
      write(a[i,j],' ');
    end;
    writeln;
  end;
  writeln('naibolshiy element v dannoi oblasti: ',max);
  readln;
end.