Удаление положительных элементов из списка, В Паскале абсолютный новичок Опции

[Cirille]

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

[2ral]

Эта программа читает количество значениы в массиве, а потом и значения. Потом же,
она перекладывает все отрицательные значемия значени в другой.

 
uses crt;
const
 Na=1000;
var
 a,b,c,d,n,i,j,k:integer;
 ar,ar1:array[1..Na] of integer;
begin
 clrscr;
 readln(n);
 for i:=1 to n do
  readln(ar[i]);
 for i:=1 to n do
  if ar[i]<0 then
   begin
    inc(j);
    ar1[j]:=ar[i];
   end;
 for i:=1 to j do
  write(ar1[i]:4);
end.