Удалить первый отрицательный элемент - Pascal ABC

var a:array[1..10] of integer;
    n,i,p:integer;
begin
randomize;
n:=10;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=-50+random(101);
  write(a[i]:4);
 end;
writeln;
p:=0;
i:=1;
while (i<=n)and(p=0) do
if a[i]<0 then p:=i else inc(i);
if p=0 then write('В массиве нет отрицательных элементов')
else
 begin
  if p=n then n:=n-1
  else
   begin
    for i:=p to n-1 do
    a[i]:=a[i+1];
    n:=n-1;
   end;
  writeln('Удаление первого отрицательного');
  for i:=1 to n do
  write(a[i]:4);
 end;
end.