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]writeln(s=,s);
readln;
end.