Заменить каждый отрицательный элемент массива произведением всех ненулевых элементов - Pascal

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

Паскаль. Заменить каждый отрицательный элемент произведением всех ненулевых элементов массива (8);

Решение задачи: «Заменить каждый отрицательный элемент массива произведением всех ненулевых элементов»

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

const n=8;
var a:array [1..n] of integer;
i:integer;
begin
i:=1;
while i<>n do
begin
read(a[i]);
inc(i);
end;
writeln('<br>');
i:=1;
repeat
writeln(a[i]);
inc(i);
until i=n;
end.

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

Объявляется константа n со значением 8, которая определяет размер массива.
Объявляется переменная a типа массив целых чисел размером от 1 до 8.
Объявляется переменная i типа целое число со значением 1.
Запускается цикл while, который будет выполняться до тех пор, пока значение переменной i не станет равным n.
Внутри цикла происходит чтение значения в переменную a[i].
Значение переменной i увеличивается на 1 после каждой итерации цикла.
После окончания цикла выводится горизонтальная линия из 8 дефисов.
Запускается цикл repeat, который будет выполняться до тех пор, пока значение переменной i не станет равным n.
Внутри цикла выводится значение переменной a[i].
Значение переменной i увеличивается на 1 после каждой итерации цикла.
Код завершается после выполнения цикла repeat.