Найдите сумму элементов четных и сумму нечетных строк матрицы А(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.