Паскаль. Квадратная матрица

[Deimossy]

Помогите решить задачу к зачету, пожалуйста!!!
Не могу с ней сама разобраться...
Дана квадратная таблица a[1..n][1..n] и число m<=n.
Для каждого квадрата размера m на m в этой таблице вычислить сумму стоящих в нем чисел. Общее число действий должно быть порядка n*n.
Помогите пожалуйста, зачет завтра!!!!!!!!

[Abbatik]

program ll;
uses crt;
const m=2; n=5;
var
a:array[1..n,1..n] of integer;
b:array[0..n-m,0..n-m] of integer;
i,j,k,l:integer;
begin
randomize;
clrscr;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;

for i:=0 to n-m do begin
for j:=0 to n-m do begin

for k:=1 to m do begin
for l:=1 to m do begin
b[i,j]:=b[i,j]+a[k+i,l+j];
end;
end;
end;
end;

writeln('rezultat');

for i:=0 to n-m do begin
for j:=0 to n-m do begin
write(b[i,j]:4);
end;
writeln;
end;
readkey;
end.

комментариев не писал но вроде и так все понятно!
1.создаешь случайный массив.
2.суммируешь каждый квадрат
3.выводишь результат, как таблицу сумм элемнтов квадратов.

[Deimossy]

Огромное спасибо, Abbatik!!!!!! Вы спасли мне жизнь!!!!!