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

uses crt;
function Obl(n,i,j:byte):boolean;
var f1,f2:boolean;
    d:byte;
begin
d:=n div 2;
f1:=(j<=i)and(j<=n-i);
f2:=(j>d)and(j<=i+d)and(j<=n-i+d);
Obl:=f1 or f2;
end;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,m,i,j:byte;
    mn,mx:integer;
begin
clrscr;
randomize;
repeat
write('Количество столбцов четное число от 4 до ',nmax,' n=');
readln(n);
until(n in [2..nmax])and(n mod 2=0);
m:=n-1;
mn:=maxint;
mx:=-maxint-1;
writeln('Матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    if Obl(n,i,j) then
     begin
      textcolor(10);
      if a[i,j]>mx then mx:=a[i,j];
      if a[i,j]<mn then mn:=a[i,j];
     end
    else textcolor(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
textcolor(10);
writeln('Минимальный в выделенной области=',mn);
writeln('Максимальный в выделенной области=',mx);
readln
end.

PROGRAM _8; 
  VAR A: ARRAY[1..17,1..17] OF INTEGER;  
  N,I,J,K,MAX,MIN: INTEGER; 
  PROCEDURE POISK; 
  BEGIN 
    IF A[I,J]>MAX THEN MAX:=A[I,J] 
      ELSE IF A[I,J]<MIN THEN MIN:=A[I,J] 
  END; 
BEGIN 
  RANDOMIZE; 
  REPEAT N:=RANDOM(15)+3 
  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; 
  K:=TRUNC(N/2)+1; MAX:=A[1,K]; MIN:=MAX; 
  FOR I:=1 TO K DO FOR J:=K DOWNTO K+1-I DO POISK; 
  FOR I:=K TO N DO FOR J:=K+N-I DOWNTO K DO POISK; 
  WRITELN(MAX,',',MIN); 
END.

uses crt;
function Obl(n,i,j:byte):boolean;
var f1,f2:boolean;
    d:byte;
begin
d:=n div 2;
f1:=(i<=d)and(j<=d)and(j>=d-i+1);
f2:=(i>d)and(j>d)and(j<=n-i+d+1);
Obl:=f1 or f2;
end;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:byte;
    mn,mx:integer;
begin
clrscr;
randomize;
repeat
write('Количество столбцов четное число от 4 до ',nmax,' n=');
readln(n);
until(n in [2..nmax])and(n mod 2=0);
mn:=maxint;
mx:=-maxint-1;
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    if Obl(n,i,j) then
     begin
      textcolor(10);
      if a[i,j]>mx then mx:=a[i,j];
      if a[i,j]<mn then mn:=a[i,j];
     end
    else textcolor(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
textcolor(10);
writeln('Минимальный в выделенной области=',mn);
writeln('Максимальный в выделенной области=',mx);
readln
end.

 K:=TRUNC(N/2)+1; MAX:=A[1,K]; MIN:=MAX; 
  FOR I:=1 TO K DO FOR J:=K DOWNTO K+1-I DO POISK; 
  FOR I:=K TO N DO FOR J:=K+N-I DOWNTO K DO POISK;