Подсчитать количество четных и нечетных среди 10 введенных с клавиатуры чисел

program Project1;
 
const
  maxcount = 10;
var
  k1,k2: integer; { Переменные для хранения значения количества чисел}
  i: integer; { Вспомогательная переменная для организации цикла}
  a: integer; { Переменная для хранения значения вводимого числа}
begin
  k1:= 0;  {Установка счетных переменных в нуль }
  k2:= 0;
  for i:= 1 to maxcount do
    begin
      write('Введите ',i,' целое число: ');
      Readln(a);
      if a mod 2 = 0 then
        inc(k1)      { Подсчет четных чисел}
      else
        inc(k2);     { Подсчет нечетных чисел}
    end;
    writeln('Количество четных чисел: ',k1,', количество нечетных чисел: ', k2);
  Readln;
end.

const
  mc = 10;
var
  i, k, a: integer; {счётчик, количество нечётных, буфер ввода}
begin
  k := 0;  {пока нечётных нет}
  for i := 1 to mc do
    begin
      write('Введите ', i, ' целое число: ');
      readln(a);
      if odd(a) then inc(k) {подсчитываем только нечётные}
    end;
  writeln('Количество чётных чисел: ', mc - k, ', количество нечетных чисел: ', k);
  readln
end.