Дан массив из 10 чисел найти количество чисел делящихся на 2

4,6,8,10,12,14,16,18,20,22

var
  a: array [1..10] of integer;
  i, s: integer;
begin
  for i := 1 to 10 do
  begin
    a[i] := random(10);
    write(a[i]:2);
  end;
  writeln();
  for i := 1 to 10 do
    if (a[i] mod 2 = 0) then
      inc(s);
  writeln(s);
end.