Обработка одномерных числовых массивов

[infernal110]

Добрый день, нужна помощь в написание кода, задание не могу сделать так как не был на лекциях и самому теперь сложно понять,
Вот задание:
Дана последовательность из N элементов. Уменьшить ее, удалив первый из отрицательных элементов и минимальный из положитель¬ных элементов и сдвинув все остальные к началу
Помогите пожалуйста с программой, кому не трудно напишите весь код
Заранее большое спасибо!!!

[newerow1989]

var p:array[1..20] of integer;
    i,i_otr,i_pol,min:integer;
begin
   Randomize;
   i_otr:=0;
   min:=15;
   For i:=1 to 20 do
   begin
      p[i]:=-15+Random(30);
      Write(p[i],'  ');
      If (i_otr=0) and (p[i]<0) then
         i_otr:=i;
      If (min>p[i]) and (p[i]>0) then
      begin
         min:=p[i];
         i_pol:=i;
      end;
   end;
   Writeln;
   For i:=1 to 20 do
      If (i_pol<>i) and (i_otr<>i) then
         Write(p[i],'  ');
   Readln;
end.

Сойдет?