Срочно! Помогите написать программу Паскаль, которая ввод данных в одномерный целочисленный массив осуществляет посредством цикла WHILE...DO, а вывод -REPEAT...UNTIL (в скобках указана размерность массива):
1.заменить каждый отрицательный элемент произведением всех ненулевых элементов массива (8);

Const
    N = 8;

var
    a: array[1..N] of integer;
    p: integer;
    i: byte;

begin
    writeln(Введите массив из , N, элементов);
    i := 0;
    p := 1;
    
    while i lt; n do
    begin
        i := i + 1;
        read(a[i]);
        if a[i] lt;gt; 0 then p := p * a[i];
    end;
    
    writeln(Отредактированный массив);
    i := 0;
    repeat
        i := i + 1;
        if a[i] lt; 0 then a[i] := p;
        write(a[i], );
    until i gt;= n;
end.