Двухмерные масивы. в целочисленной матрице размерность 10*10 найти сумму положительных элементов четных строк

const n=10;

var a:array [1 ... n, 1 ... n] of integer;

i, j, s:integer;

begin

for i: = 1 to n do

begin

for j:=1 to n do

begin

a[i, j]:=Random (21) - 10;

write (a[i, j]:4)

end;

writeln;

end;

for i: = 1 to n do

if i mod 2 = 0 then

for j:=1 to n do

if a[i, j]>0 then s:=s+a[i, j];

writeln ('Сумма положительных элементов чётных строк равна: ', s)

end.