Pascal. составьте программу для нахождения суммы отрицательных четных элементов двумерного массива

Program aliona;

const n = 10;

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

i, j, s:integer;

begin

randomize;

for i:=1 to n do

for j:=1 to n do

begin

a[i, j]:=random (30) ;

write ('а (', i, ',', j, ') = ', a[i, j]) ;

end;

s:=0;

for i:=1 to n do begin

for j:=1 to n do begin

if a[i] (mod 2 = 0) and (a[i]<0) then s:=s+a[i];

writeln ('s=', s) ;

readln;

end.