Задан массив н из чисел n (n = 16) случайным образом в диапазоне [-9..9]. найти количество четных элементов массива.

Const n=16;
var h: array[1..n] of integer;
    i,sm: integer;
begin
   sm:=0;
   randomize;
   write('массив:  ');
   for i:=1 to n do
   begin
     h[i]:=random(-9,9);
     write(h[i],' ');
     if h[i] mod 2 = 0 then sm:=sm+1;  
   end;
   writeln;
   writeln('количество четных: ',sm);
end.

массив:  -7 -4 -3 -7 -2 6 1 -1 3 5 -2 -3 5 7 -3 5 
количество четных: 4