удаление элемнтов в массиве со сдвигом(Delphi)

[Soulcrusher]

Пусть дана последовательность из N элементов. Уменьшите её, удалив первый из отрицательных и минимальный из положительных(считайте, что такой элемент один) и сдвинув все остальные к началу.

Не поможете разобраться с задачкой?У меня не получилось её решить.

[Mad_Cat]

удалив первый из отрицательных

i:=1;
while (a[i]>=0) and (i<=n) do inc(i);
for j:=i to n-1 do a[j]:=a[j+1];
n:=n-1;

и минимальный из положительных

i:=1;
while (a[i]<=0) and (i<=n) do inc(i);
for j:=i+1 to n do
if (a[j]>0) and (a[j]<a[i]) then i:=j;
for j:=i to n-1 do a[j]:=a[j+1];
n:=n-1;