Локальный минимум Опции

[ф]

Элемент Матрицы называется ЛОКАЛЬНЫМ МИНИМУМОМ, если он меньше всех соседей(по строке и столбцу). Напистаь программу , обеспечивающую ввод с клавиатуры целочисленной матрицы размером M на N, и обнаружение и подсчет кол-ва всех локальных минимумов....

[volvo]

А вот так?

program oo;
uses crt;
const
  n = 4;
  a: array[1 .. n, 1 .. n] of integer =
    ((1, 2, 3, 4),(5, 4, 2, 6),(7, 3, 2, 7),(8, 1, 4, 2));

function is_local_min(i, j: integer): boolean;
var
b: boolean;
ii, jj: integer;
begin
  b := true;

  for ii := pred(i) to succ(i) do
    for jj := pred(j) to succ(j) do
      if (ii in [1 .. n]) and (jj in [1 .. n]) then
        if (ii = i) and (jj = j) then continue
        else b := b and (a[ii, jj] > a[i, j]);
  is_local_min := b;
end;

var
 i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to n do
      if is_local_min(i, j) then begin
        writeln('a[',i,',',j,'] = ',a[i, j]);
      end;

end.

Зачем же исправлять программу? Ведь по ссылке же была рабочая версия, надо было просто удалить несколько строк ...