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