Дан массив из 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 mas[i] mod 2 =0 then p:=p+1; //проверяем, если число из массива делится на 2 без остатка (число четное), то считаем его

write(количество чисел четных=,p) //выводим ответ
end.