Дана последовательность А1...А50. Получить новую последовательность, исключив отрицательные элементы

Program xa;
var
 a:array[1..50] of integer;
 i,n,j:integer;
begin
 {Randomize;}  {Для ввода рандомом, расскоментируй}
 Writeln('BBeDuTe KoLu4eCTBo elemeHtoB maccuBa');
 Readln(n);
 Writeln('BBeDute eLeMeHTbl MaccuBa');
 for i:=1 to n do
 begin
 {a[i]:=random(50)-25;} {и эту тоже, а две ниже этой-закомментируй}
  {Write('A[' ,i, ']=');
  Readln(a[i]);}
 end;
 Writeln;
 Writeln('MaccuB do u3MEHeHUu');
 for i:=1 to n do
   Write(a[i], ' ');
 i:=1;
 While i<=n do
 begin
   if a[i]<0 then
   begin
     for j:=i to n-1 do
       a[j]:=a[j+1];
     dec(n);
     dec(i);
   end;
   inc(i);
 end;
 Writeln;
 if n>0 then
 begin
   Writeln('MaccuB noCle u3MeHeHUu');
   for i:=1 to n do
     Write(a[i], ' ')
 end
 else
   Writeln('MaccuB nyCT');
 readln
end.