Найти минимальный элемент, принадлежащий заштрихованному фрагменту матрицы

var i,j,n,m:integer;
    a:array[1..12,1..12]of integer;
begin
  n:=12;
  randomize;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(101)-50;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  m:=a[1,n];
  for i:=1 to n do
  begin
    if i<=n div 2 then j:=n-i+1
    else j:=i;
    //writeln(j);
    for j:=j to n do
      if m>a[i,j] then m:=a[i,j];
  end;
  writeln('min=',m);
end.

  for i:=1 to n div 2 do for j:=1+n-i to n do
    if m>a[i,j] then m:=a[i,j];
  for i:=n div 2+1 to n do for j:=i to n do
    if m>a[i,j] then m:=a[i,j];

Min:=A[1,4]; x1:=1; y1:=4;
   for i:=1 to 2 do
     for j:=5-i to 4 do
         If A[i,j]<Min Then Begin
         Min:=A[i,j];x1:=i; y1:=j      
       end;
       for i:=3 to 4 do
         for j:=i to 4 do
         If A[i,j]<Min Then Begin
         Min:=A[i,j];x1:=i; y1:=j
         End;

const n=4;
var
  i, j, mn, im, jm: Integer;
  a: array [1..n,1..n] of Integer;
. . .
  mn:=a[1,n]; im:=1; jm:=n;
  for i:=2 to n div 2 do for j:=1+n-i to n do
    if mn>a[i,j] then begin
      mn:=a[i,j]; im:=i; jm:=j;
    end;
  for i:=1+n div 2 to n do for j:=i to n do
    if mn>a[i,j] then begin
      mn:=a[i,j]; im:=i; jm:=j;
    end;

  im:=1; jm:=n;
  for i:=2 to n div 2 do for j:=1+n-i to n do
    if a[im,jm]>a[i,j] then begin
      im:=i; jm:=j;
    end;
  for i:=1+n div 2 to n do for j:=i to n do
    if a[im,jm]>a[i,j] then begin
      im:=i; jm:=j;
    end;