Программа по выводу матрицы.

[Ekvental]

Уважаемые программеры. Вводится матрица M(n,n) с цифровой информацией. Составить программу подсчёта сумм элементов, составляющих "чёрные" и, отдельно, "белые" поля предполагаемой шахматной доски, наложенной на матрицу. Матрицу вывести.
Есть код выполнения основного условия:
Код:

For i:=1 to n do
begin
For j:=1 to n do
begin
t:=i+j;
if t mod 2=1
then s1:=s1+m[i,j];
if t mod 2=0
then s2:=s2+m[i,j];
end;
end;

Но надо связать его с реализацией всей задачи вцелом.

[Mad_Cat]

var i,j,n,s1,t,s2:integer;
m:array[1..100,1..100] of integer;
begin
readln(n);
for i:=1 to n do for j:=1 to n do
readln(m[i,j]);
for i:=1 to n do begin for j:=1 to n do
write(m[i,j],'  ');
writeln;
end;
For i:=1 to n do
begin
For j:=1 to n do
begin
t:=i+j;
if t mod 2=1
then s1:=s1+m[i,j];
if t mod 2=0
then s2:=s2+m[i,j];
end;
end;
writeln(s1);
writeln(s2);
readln;
end.

[Ekvental]

Спасиибо огромное.