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

[ф]

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

[volvo]

В том-то и проблема, что это вставляется не одним куском, а разбивается на 2 части...
По-моему вот так, я не проверял, попробуй

program oo;
uses crt;

var
  a: array[1 ..20 , 1 .. 20] of integer;
  n,m:integer;

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 .. m]) 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
  writeln('');
  write('stroki'); readln(n);
  write('stolbci'); readln(m);
  writeln('vvedite elementi matrici;');
  for i:=1 to n do
    for j:=1 to m do begin
      write('a[',i, ',',j,']=');
      readln(a[i,j]);
    end;
  writeln;
  readln;

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