Дан массив из 10 частей отыскать сумму частей с четными номерами.Написать

program zz1;
var mas:array[1..10] of integer;
i,p,max:integer;
begin
for i:=1 to 10 do //получаем исходный массив случайным образом от 1 до 20
mas[i]:=random(20)+1;
for i:=1 to 10 do
write(mas[i], ); //выводим приобретенный массив на экран
writeln; //переходим на иную строчку для вывода
for i:=1 to 10 do
if i mod 2 =0 then p:=p+mas[i]; //проверяем, если номер числа из массива четный, то число прибавляем к сумме

write(p) //выводим ответ
end.