Удалить все отрицательные элементы массива

uses crt;
const max=100;
var b:array[1..max] of integer;
    n,i,j:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  b[i]:=random(10)-4;
  write(b[i],' ');
 end;
writeln;
writeln;
{удаление первого элемента}
for i:=1 to n-1 do
b[i]:=b[i+1];
n:=n-1;
writeln('Без первого элемента:');
for i:=1 to n do
write(b[i],' ');
writeln;
writeln;
{удаление отрицательных}
i:=1;
while i<=n do
if b[i]<0 then
 begin
  for j:=i to n-1 do
  b[j]:=b[j+1];
  n:=n-1;
 end
else i:=i+1;
writeln('Без отрицательных элементов:');
for i:=1 to n do
write(b[i],' ');
readln
end.

Program mas;
 Uses crt;
 Const n=10;
 Var a: array [1..n] of integer;i:integer;
 Begin
  Clrscr;
  Writeln('Исходный массив: ');
  For i:=1 to n do
   begin 
    Write(i,': '); 
    Read(a[i]); 
   end;
  Writeln;
  Writeln('Удаление первого элемента: ');
  For i:=2 to n do
   Write(i,': ',a[i],' '); 
  Writeln;
  Writeln('Удаление отрицательнх элементов: ');
  For i:=1 to n do
   if a[i]>=0 then
   Write(i,': ',a[i],' ');
 End.