Изменить значения всех положительных элементов заданного массива делением каждого из них на его номер - PascalABC.NET

Формулировка задачи:

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

Решение задачи: «Изменить значения всех положительных элементов заданного массива делением каждого из них на его номер»

Листинг программы

begin
  var Count := 0;
  var N := ReadLnInteger('N =');
  var A : array of Real;
  SetLength(A, N);
  for var i := 0 to N-1 do
    begin
      A[i] := ReadLnReal('A[' + (i+1).toString + '] =');
      if A[i] > 0 then
        A[i] := A[i] / (i+1)
      else if A[i] < 0 then
        Count += 1;
    end;
  WriteLn('Массив A = ', A);
  WriteLn('Отрицательных: ', Count);
end.

Объяснение кода листинга программы

Вводится количество элементов в массиве (N).
Создается массив A типа Real, размерностью N.
Заполняется массив A значениями элементов, которые считываются с помощью функции ReadLnReal.
Для каждого элемента массива проверяется его знак.
Если элемент положительный, то он делится на (i+1).
Если элемент отрицательный, то увеличивается счетчик Count.
Выводится массив A.
Выводится значение счетчика Count, которое показывает количество отрицательных элементов в массиве.