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

program z6;
uses crt;
var a:array[1..1000,1..1000] of integer;
n,i,j,max,min:integer;
 
Begin
clrscr;
writeln('Vvedite n (n - nechetnoe)');
repeat
readln(n);
if n mod 2=0
then
writeln('Vvedite eshe raz');
 
until n mod 2=1;
writeln('n=',n);
for i:=1 to n do
begin for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
min:=a[i,j];
max:=a[i,j];
for i := 1 to n do begin
for j := 1 to n do begin
if ((i <= n div 2) and (j <= n - i + 1)) or ((i >= n div 2) and (j <= n - i + 1)) then begin
if (a[i,j] < min) then min := a[i,j];
if (a[i,j] > max) then max := a[i,j];
end;
end;
end;
writeln(min,',',max);
readln
end.

min:=a[i,j];
max:=a[i,j];

min := a[1, n];
  max := a[1, n];

if ((i <= n div 2 + 1) and (j >= n - i + 1)) 
        or ((i >= n div 2 + 1) and (j <= n - i + 1))

var
  a: array[1..1000, 1..1000] of integer;
  n, i, j, max, min: integer;
 
begin
  writeln('Vvedite n (n - nechetnoe)');
  repeat
    readln(n);
    if n mod 2 = 0
      then
      writeln('Vvedite eshe raz');
  until n mod 2 = 1;
  writeln('n=', n);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(100);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  writeln;
  
  min := a[1, n];
  max := a[1, n];
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      if ((i <= n div 2 + 1) and (j >= n - i + 1)) 
        or ((i >= n div 2 + 1) and (j <= n - i + 1)) 
        then begin
          if a[i,j]<min then min:=a[i,j];
          if a[i,j]>max then max:=a[i,j];
        end;
    end;
  end;
  writeln('min = ',min, ', max = ', max);
  readln
end.