Найти количество четных чисел в последовательности m,состоящий из 15 чисел го ,

Var M: array[1..15] of integer;   
     i, count: integer;
begin 
    for i := 1 to 15 do begin   
        M[i] := random(15);   
        write(M[i]:3);   
        if(M[i] mod 2 = 0) then inc(count); 
    end; 
    writeln(#10, 'Кол-во четных элементов: ', count);
end.