Сформировать массив A из N случайных чисел в диапазоне от - 100 до 100 (число N вводится с клавиатуры, его значение не больше 20). Найти сумму всех положительных четных элементов. в паскале

Var a, b, c, i:integer;

d:array [1 ... 1000] of integer;

begin

randomize;

writeln ('введите число') ;

readln (a) ;

for i:=1 to a do begin

d[a]:=random (-100,100) ;

writeln (d[a]) ;

if (d[a]>0) and (d[a] mod 2 = 0) then

c:=c+d[a];

end;

writeln ('ответ : ', c) ;

end.