найти количество четных чисел в последовательности 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.