Удаление последнего отрицательного элемента

Program mas1;
Const n=20;
Type mas = array[1..n] of integer;
 
Var a:mas;
    i,x:integer;
    
BEGIN
  x:=0;
  for i:=1 to n do
    begin
      a[i]:=random(50)-20;
      write(a[i]:4);
      if a[i]<0 then 
        x:=i;
    end;
  writeln;
  for i:=1 to x-1 do
      write(a[i]:4);
  for i:=x to n-1 do
    begin
      a[i]:=a[i+1];
      write(a[i]:4);
    end;
END.