Найти произведение натуральных чисел для указанного одномерного массива - Pascal

Написать функцию, которая находит произведение натуральных чисел для указанного одномерного массива и длинны этого массива.

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

  for i := 1 to n do
    if x[i] > 0 then
    begin
      p := p * x[i];
      inc(k);
    end;

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

Создается цикл for от 1 до n, где i - переменная-счетчик, n - количество элементов в массиве.
Проверяется условие, если значение элемента массива x с индексом i больше 0.
Если условие выполняется, выполняется блок begin-end:
- Умножение переменной p на значение элемента массива x с индексом i.
- Увеличение переменной k на 1 с помощью процедуры inc.
Продолжение выполнения цикла для следующего элемента массива.