Заменить каждый отрицательный элемент в одномерном массиве, предшествующим ему положительным элементом. Если предшествующего положительного элемента нет, то заменить отрицательный элемент нулем — Pascal(Паскаль)

uses crt;
var a:array[1..100] of integer;
    i,j,n:integer;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
 for i:=1 to n do
  begin
   a[i]:=-10+random(20);
   Write(a[i]:4);
  end;
Writeln;
 for i:=1 to n do
  if a[1]<0 then
   a[1]:=0;
 for i:=1 to n do
  begin
   if (a[i]<0) and (a[i-1]>0) then
    a[i]:=a[i-1]
   else
    if (a[i]<0) and (a[i-1]<0) then
     a[i]:=0;
   end;
 for i:=1 to n do
  Write(a[i]:4);
Readln;
end.