Используя динамическое размещение последовательности вещественных чисел A1,A2…An, преобразовать исходную последовательность, добавив нулевые элементы после каждого отрицательного.
program Zadacha_1;
type
ptr=^arr;
arr=array[1..100] of real;
var
p:ptr;
q,i:word;
v:real;
begin
new(p);
writeln('Enter qantity of elements');
readln(q);
for i:=1 to q do
begin
writeln('Enter value of ',i,' element');
readln(p^[i]);
end;
writeln;
writeln('The list before processing:');
for i:=1 to q do
write(p^[i]:4 :2,', ');
writeln;
writeln('The list after processing:');
{for i:=1 to q do
begin
if p^[i]<0 then p^[i+1]:=0;
write(p^[i]:4 :2,', ');
end;}
dispose(p);
readln;
end.
Помогите, пожалуйста, написать сам цикл по добавлению нулей после отрицательных элементов