Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Pascal (Паскаль). Посчитать четные и нечетные числа в массиве.
Код:

program Calk_Even_Task;
  //программа Посчитать четные и нечетные числа в массиве в Паскале
const
  n = 10;
var
  i, i_even, i_not_even: integer;
  i_MasNum: array[1..n] of integer;
  i_Num_even: boolean;

begin
i_even:=0;
i_not_even:=0;
  //заполяем массив
  i_MasNum[1] := 2;
  i_MasNum[2] := 17;
  i_MasNum[3] := -5;
  i_MasNum[4] := 3;
  i_MasNum[5] := 108;
  i_MasNum[6] := 4;
  i_MasNum[7] := 16;
  i_MasNum[8] := 19;
  i_MasNum[9] := 37;
  i_MasNum[10] := 1;
  for i := 1 to n do
  begin
    i_Num_even := odd(i_MasNum[i]); // нечетное число
    if i_Num_even then
     i_not_even:=i_not_even+1  //сумма нечетных чисел
    else
    i_even:=i_even+1; //сумма четных чисел
  end;
  Writeln('Количество нечетных чисел: ', i_not_even);
  Writeln('Количество четных чисел: ', i_even);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:

Посчитать четные и нечетные числа в массиве Паскаль (Pascal).