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

Подсчитать количество отрицательных и положительных элементов массива, заданного датчиком случайных чисел. Паскаль.
Подробный код, без оптимизации:

program Mas_Kol_Minus_Plus_Task;
  // Подсчитать количество отрицательных и положительных элементов массива,
  // заданного датчиком случайных чисел. Паскаль.
const
  n = 10;
var
  i: word;
  i_MasNum: array[1..n] of integer;
  i_Num_even: boolean;
  i_Minus: integer;
  i_Plus: integer;
begin
  randomize;
  i_Minus := 0;
  i_Plus := 0;
  //заполняем массив
  for i := 1 to n do
    i_MasNum[i] := random(20) - 10; // от -10 до 10
  // подсчитываем количество с массива
  for i := 1 to n do
  begin
    i_Num_even := (i_MasNum[i] < 0); // отрицательное число - истина
    if i_Num_even then
    begin
      i_Minus := i_Minus + 1;
      Writeln('Отрицательное число: ', i_MasNum[i]);
    end
    else
    begin
      i_Plus := i_Plus + 1;
      Writeln('Положительное число: ', i_MasNum[i]);
    end;
  end;
  Writeln('Кол-во отрицательных чисел: ',
    i_Minus, ' Кол-во положительных чисел:  ', i_Plus);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:

Подсчитать количество отрицательных и положительных элементов массива, заданного датчиком случайных чисел. Паскаль.