Сформировать массив из 10 случайных целых чисел из отрезка от -10 до 10 вывести номера чётных элементов массива

Program z1;
var a:array[1..10] of integer;
i:integer;
for i:=1 to 10 do
begin
a[i]:=random(20)-10;
if i mod 2=0 then writeln(a[i]);
end;
end.