ПРЯМ СРОЧНОСоставьте программку которая определяет количество в массиве четных чисел

var a:array of integer;

N,i,k:integer;

function f(a:integer):Boolean;

begin

if (a mod 2=0) then f:=True else

f:=False;

end;

BEGIN

k:=0;

writeln('Введите количество частей массива');

readln(N);

SetLength(A,N);

writeln('Введите массив');

for i:=0 to N-1 do begin

read(a[i]);

if (f(a[i])=True) then k:=k+1;

end;

writeln('Количество чётных частей массива = ',k);

end.

Вводите с клавиатуры кол-во частей массива, а потом сам массив.