В одномерном массиве произвольных чисел найти количество нечётных элементов (паскаль)

function f (a: array of integer) : byte;

begin

foreach i: integer in a do

if (i mod 2 = 1) then

result + = 1;

end;

begin

var a: array of integer : = new integer[50];

for var i : = 0 to 49 do

begin

a[i] : = random (1, 300000) ;

write (a[i], ' ') ;

end;

writeln (#13, #13, f (a)) ;

end.