Нужно из массива удалить все положительные элементы после первого отрицательного

sr:=0;
 notr:=0;
 max:=-1e308;
 m:=0;
 writeln('Лабораторная работа 2');
{задание 1}
 writeln('Задание 1');
{ввод исходных данных для задания 1}
goback:
 writeln('Введите длину массива R от 1 до ',k1);
   read(n);
  if n<=0 then begin
    writeln ('Нет массива');
    goto goback; 
     readln; 
      end; 
 writeln('Введите x ');
   readln(x);
 writeln('Введите h ');
   readln(h);
 writeln('Введите a ');
   readln(a);
 
  for i:=1 to n do
begin
R[i]:=cos(i*h)-cos(a*x+i*h);
end;
 
{вывод результата задания 1}
writeln('Получившийся массив');
for i:=1 to n do begin
   writeln(r[i]:3:2);
   end;

writeln('задание 2');
   for i:=1 to n do begin
    if notr=0 then
     if r[i]<0 then
      notr:=i;
   end;
      for i:=notr to n do 
       if r[i]<0 then begin
        m:=m+1;
        r[m]:=r[i];
        end; 
        k:=m;
        for m:=1 to k do 
         writeln(r[m]:3:2);

const n=10;
var a:array[1..n] of integer;
    i,j:integer;
begin
 randomize;
 for i:=1 to n do
  begin;
   a[i]:=-5+random(11);
   write(a[i],' ');
  end;
 
 i:=1;
 while (a[i]>=0)and(i<=n) do inc(i);
 if i<n
  then
   begin
    j:=i+1;
    while j<=n do
      begin
       a[j]:=0;
       inc(j)
      end;
   end
  else i:=n;
 writeln;
 for j:=1 to i do write(a[j],' ');
 readln
end.

const nn=10;
var
  r: array [1..nn] of Integer;
  i, j, n: Integer;
begin
  Randomize; n:=nn;
  for j:=1 to n do r[j]:=-5+Random(11);
  for j:=1 to n do Write(r[j]:3); WriteLn;
  i:=1; while (i<=n) and (r[i]>=0) do Inc(i); Inc(i);
  for j:=i to n do
    if r[j]<=0 then begin
      if j>i then r[i]:=r[j]; Inc(i);
    end else Dec(n);
  for j:=1 to n do Write(r[j]:3); WriteLn;
end.