Найдите сумму элементов четных и сумму нечетных строк матрицы А(n,m)

Const n=5; m=5;
var a: array [1..n,1..m] of integer;
      i,j,s,s_:integer;
begin
writeln(Исходная матрица: );
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(15)+1;
if (i mod 2) = 0 then
s:=s+a[i,j]
else
s_:=s_+a[i,j];
write(a[i,j]:4);
end;
writeln;
end;
writeln;
writeln(Сумма чётных строк: ,s);
writeln(Сумма не чётных строк: ,s_);
end.