for i := 1 to 18 do
begin
  if h[i] mod 2 = 0 then inc(kn)
  else inc(kcn);
end;
if kn > kcn then
begin
  for i := 1 to 18 do
  begin
    if max < h[i] then
    begin
      nmax := i;
      max := h[i];
    end;
  end;
  h[nmax] := 0;
end;