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

const
  m = 16;
var
  a: array[1..m, 1..m] of integer;
  i, j, imax, jmax, imin, jmin, n, d, q: integer;
begin
  randomize;
  repeat
    write('n in [1..', m, '];  n = ');
    readln(n)
  until n in [1..m];
  writeln('Matrix:');
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          a[i, j] := -99 + random(199);
          write(a[i, j]:4)
        end;
      writeln
    end;
  imax := n;
  jmax := n;
  imin := n;
  jmin := n;
  d := n div 2;
  q := n mod 2;
  for i := 1 to n do
    for j := 1 to n do
      if (i + j - q - 1 >= d) and (i + n - j - q >= d) then
        if a[i, j] < a[imin, jmin] then
          begin
           imin := i;
            jmin := j
          end
        else
          if a[i, j] > a[imax, jmax] then
            begin
              imax := i;
              jmax := j
            end;
  writeln('Min in area: A[', imin, ', ', jmin, '] = ', a[imin, jmin]);
  writeln('Max in area: A[', imax, ', ', jmax, '] = ', a[imax, jmax]);
  readln
end.

uses
  crt;
const
  m = 16;
var
  a: array[1..m, 1..m] of integer;
  i, j, imax, jmax, imin, jmin, n, d, q: integer;
begin
  randomize;
  repeat
    write('n in [1..', m, '];  n = ');
    readln(n)
  until n in [1..m];
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := -99 + random(199);
  writeln('Matrix:');
  imax := n;
  jmax := n;
  imin := n;
  jmin := n;
  d := n div 2;
  q := n mod 2;
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          if (i + j - q - 1 >= d) and (i + n - j - q >= d) then
            begin
              textcolor(lightgray);
              if a[i, j] < a[imin, jmin] then
                begin
                 imin := i;
                  jmin := j
                end
              else
                if a[i, j] > a[imax, jmax] then
                  begin
                    imax := i;
                    jmax := j
                  end
            end
          else textcolor(lightred);
          write(a[i, j]:4)
        end;
      writeln
    end;
  writeln('Min in area: A[', imin, ', ', jmin, '] = ', a[imin, jmin]);
  writeln('Max in area: A[', imax, ', ', jmax, '] = ', a[imax, jmax]);
  readln
end.