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

const n=15;
var a:array[1..n] of integer;
      i,kc,kn:byte;
begin
randomize;
kc:=0;
kn:=0;
for i:=1 to n do
 begin
  a[i]:=-200+random(401);
  write(a[i]:5);
  if odd(a[i]) then inc(kn) else inc(kc);
 end;
writeln;
writeln('Количество четных=',kc,' количество нечетных=',kn);
readln
end.

const n=15;
var
  a: array [1..n] of Integer;
  k: array [Boolean] of Integer;
  i: Integer;
begin
  Randomize;
  for i:=1 to n do begin
    a[i]:=-200+Random(401);
    Write(' ',a[i]);
    Inc(k[Odd(a[i])]);
  end; WriteLn;
  WriteLn('Количество четных=',k[Odd(0)],' количество нечетных=',k[Odd(1)]);
end.

const n=15;
var
  k: array [Boolean] of Integer;
  a, i: Integer;
begin
  Randomize;
  for i:=1 to n do begin
    a:=-200+Random(401);
    Write(' ',a);
    Inc(k[Odd(a)]);
  end; WriteLn;
  WriteLn('Количество четных=',k[Odd(0)],' количество нечетных=',k[Odd(1)]);
end.