Заполните массив 12 случайными целыми числами из промежутка [-10,10]. выведите на экран элементы массива через пробел .найдите сумму элементов массива , находящихся на четных позициях

Var x,s,sum,i:integer;       
mass:array[1..12] of integer;
begin
x:=0;
sum:=0;
for i:=1 to 12 do
begin
x:=x+1;
s:=random(3);
if (s mod 2)=0  
 then mass[i]:=random(11) 
 else mass[i]:=-random(11);
if (x mod 2)=0 then sum:=sum+mass[i];
write(mass[i]+' ');
end;
writeln('');
writeln('сумма чисел на четных местах = '+sum);
end.