Подсчитать количество четных элементов в массиве для делфи...(((

Const
n = 20;

var
i, e, p: integer;
a: array[1..n] of integer;

begin
Randomize;
writeln('Массив А:');
p := 0;
for i := 1 to n do
begin
    e := Random(100) - 50;
    a[i] := e;
    write(e:5);
    if e mod 2 = 0 then p := p + 1
end;
writeln;
writeln('Количество четных элементов в массиве равно ', p)
end.

Тестовое решение:

Массив А:
   49   19   42   41 -21 -25   42   21   45   -1 -18   29 -48   21 -34   26 -25    4    5   -8
Количество четных элементов в массиве равно 8