Составить массив из 10 целых случайных чисел на промежутке от -30 до 30. Вывести массив. Найти количество чётных элементов и вывести их номера

Var
i,count:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(-30,30);
write(mas[i], );
end;
writeln();
writeln(Номера четных элементов);
count:=0;
for i:=1 to 10 do begin
if mas[i] mod 2 = 0 then begin
write(i, );
count:=count+1;
end;
end;
writeln();
writeln(Количество четных элементов = , count);
end.