В массиве A=(a1, а2, ..., аn) удалить все подряд идущие отрицательные

Var
  a, b: array[1..110000] of integer;
  i, n, j, cnt, min: integer;
  fl: boolean; 
begin
  Readln(n);
  for i := 1 to n do
    Read(a[i]);
   min:= a[1];
   j:= 1;
  for i := 2 to n do
    if a[i] lt; min then 
    begin
      min:= a[i];
       j:= i;
    end;    
   fl := true;
   for i:= 1 to j do
   write(a[i], ' '); 
  for i:= j + 1 to n do
    begin
      if a[i] gt; 0 then fl := false;
      if (a[i] lt; 0)and(fl) then continue;
      write(a[i], ' ');    
    end; 
  end.