Нахождение чисел в матрице

[Jean-Esther]

идея такова: создаем массив array[0..11] of integer; заполняем for i:=1 to 10 do for j:=1 to 10 do {...}, ищем максимальный элемент по таблице 10х10 и заполняем «бортики» (нулевые и одиннадцатые строки и столбцы) этим максимумом. Далее проходим по массиву 10х10 и по простому условию, выше записанному, определяем, является ли этот элемент локальным минимумом.
P.S. приводить код не буду, совместными усилиями задача обсуждена и результаты приведены тут. Код не сложный, можно и самому попробовать его написать. Если не получится — выкладывай наработки, поможем уже совместно написать.

[bpystep]

program lab1;
uses crt;

const
n=12;
m=10;
type
 matr = array[1..n,1..n] of integer;

{формирование матрицы}
procedure formir(var a:matr;k:integer);
var
 i,j:integer;
begin
 randomize; {включаем генератор случайных чисел}
 for i:=1 to n do {генерируем матрицу}
  for j:=1 to n do
   a[i,j]:=Random(20)-10;
end;

procedure kolvo(var a:matr;k:integer);
var
 i,j,p,max:integer;
begin
max:=a[1,1];
for i:=1 to n do
    for j:=1 to n do
      if (a[i,j]>max) then a[i,j]:=max;
for i:=1 to n do
    if (i=1) then
       for j:=1 to n do
        begin
         a[i,j]:=max;
          a[i,j]:=max;
        end
    else if (i=12) then
         for j:=1 to n do
        begin
         a[i,j]:=max;
          a[i,j]:=max;
        end;
for j:=1 to n do
    if (j=1) then
       for j:=1 to n do
        begin
         a[i,j]:=max;
          a[i,j]:=max;
        end
    else if (j=12) then
         for j:=1 to n do
        begin
         a[i,j]:=max;
          a[i,j]:=max;
        end;
p:=0;
  for i:=2 to m do
      for i:=2 to m do
          if (a[i,j]<a[i-1,j])and(a[i,j]<a[i+1,j])
          and(a[i,j]<a[i,j-1])and(a[i,j]<a[i,j+1])
          and(a[i,j]<a[i-1,j-1])and(a[i,j]<a[i+1,j+1])
          and(a[i,j]<a[i-1,j+1])and(a[i,j]<a[i+1,j-1]) then
          inc(p);
writeln(p);
end;

function summa (a:matr;k:integer):integer;
var
 i,j,t:integer;
begin
for i:=2 to m do
    for j:=i+1 to m do
        t:=t+abs(a[i,j]);
writeln('Сумма модулей элементов выше главной диагонали =',t);
end;
var
 a:matr;
begin
 clrscr;
 formir(a,n);
 writeln('Количество локальных минимумов: ');
 kolvo(a,n);
 summa(a,n);
 readkey;
end.

программа пишет что выход за рамки диапазона. Не знаю что где подправить. вроде всё описано правильно

[bpystep]

Нашел ошибку, выше приведённый код отредактирую.
всем спасибо!!!