Не могу решить задачу!!!Help!

[sani17]

Написать программу на языке Pascal для решения задачи:

Задан двумерный массив размерностью NxM. Найти в нём подмассив размерностью 3х3, сумма элементов которого максимальна. N и M могут быть не кратны трём.

[Аватар]

for i:=1 to N-2 do
  for j:=1 to M-2 do begin
    s:=0;
    for k:=i to i+2 do
      for l:=j to j+2 do Inc(s,mas[k,l]);
    if ((i=1) and (j=1)) or (s>MaxS) then begin
      MaxS:=s;
      i1:=i;
      j1:=j;  
    end; 
  end;
// в MaxS - максимальная сумма
// в i1,j1 - координаты левого верхнего угла найденного подмассива