Сформировать массив 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.