Задача на одномерный массив, Ребята, помогите с задачкой. Опции

[Chopper]

:low: Задан упорядоченный по невозрастанию одномерный массив. :low:
1) найти произведение отрицательных элементов массива;
2) найти сумму положительных элементов массива;
3) упорядоченный по невозрастанию массив преобразовать в упорядоченный по возраста-нию, оставив по одному в каждой группе совпадающих элементов.

[volvo]

Chopper
Вот тебе первые 2 части задания.

Код

const
 n = 10;
 a: array[1 .. n] of integer =
   (6, 4, 2, 2, 0, -1, -3, -5, -5, -6);
var
 p, s: longint;
 i: integer;
begin
 p := 1; i := n;
 while a[i] < 0 do
   begin
     p := p * a[i]; dec(i)
   end;
 writeln('p = ', p);

 s := 1; i := 1;
 while a[i] > 0 do
   begin
     s := s + a[i]; inc(i)
   end;
 writeln('s = ', s);
end.

С третьей сам справишься, или нужна помощь?