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

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.

program _8;
uses crt;
var a:array[1..17,1..17] of integer;
    n,i,j,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);
    if ((j<=i)and(j<=n-i+1))or ((j>=i)and(j>=n-i+1)) then textcolor(12)
    else textcolor(0);
    write (a[i,j]:4)
   end;
  writeln;
 end;
max:=a[1,1];
min:=max;
for i:=1 to n do
for j:=1 to n do
if((j<=i)and(j<=n-i+1))or ((j>=i)and(j>=n-i+1)) then poisk;
writeln('max=',max,'  min=',min);
end.