Определить индексы элементов матрицы, у которых сумма соседей положительна

  for i := 1 to n do
    for j := 1 to m do
      begin
        s := 0;
        if i > 1 then s := s + a[i-1,j];
        if j > 1 then s := s + a[i,j-1];
        if i < n then s := s + a[i+1,j];
        if j < m then s := s + a[i,j+1];
        if s > 0 then writeln(i, ' ', j)
      end;

Const
max = 30;
var
a: array[1..max,1..max] of Integer;
i,j,n,m:integer;
begin
 repeat
   writeln('Введите размерность матрицы: (до 30)');
   write('N='); read(n);
   write('m='); read(m);
 until (n<31) and (m<31);
 
 randomize;
 for i := 1 to n do begin
     for j := 1 to m do begin
         a[i,j] := random(41)-20;
         write(a[i,j]:4);
     end;
     writeln;
 end;
 
 for i := 2 to n-1 do begin
     for j := 2 to m-1 do begin
         if (a[i-1,j] + a[i+1,j] + a[i,j-1] + a[i,j+1] > 0) then write('(',i,',',j,') ');
     end;
     writeln;
 end;
 
 readln;
end.