Переформировать массив, убрать все положительные элементы

program ex;
var a:array [-100..100] of integer;
i,j,n:integer;
begin
write('ââåäèòå ÷èñëî ýëåìåíòîâ ìàññèâà');
readln(n);
writeln('ââåäèòå ýëåìåíòû ìàññèâà');
for i:=1 to n do
begin
write('a[',i,']=');
readln (a[i]);
end;
j:=0;
for i:=1 to n do
if a[i]<0 then
a[j]:=a[i];
j:=j+1;
for i:=1 to j do
 writeln('íîâûé ìàññèâ:');
 for j:=1 to n do write (a[j]);
 end.

program ex;
uses crt;
var a:array [0..100] of integer;
    b:array [0..100] of integer;
i,j,n,m:integer;
begin
write('введите число элементов массива ');
readln(n);
writeln('введите элементы массива ');
j:=1;
for i:=1 to n do
    begin
    write('a[',i,']=');
    readln (a[i]);
    if a[i]<0 then
       begin
            b[j]:=a[i];
            inc(j);
       end;
    end;
m:=j-1;
writeln('исходный массив:');
for i:=1 to n do
    write (a[i],' ');
writeln;
writeln('новый массив:');
for j:=1 to m do
    write (b[j],' ');
 end.

if a[i]>0 then