Одномерный массив Опции

[Merlin]

Помогите решить задачку :

Задан упорядоченный по невозрастанию одномерный массив.

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

[volvo]

Как сделать вот это : "оставив по одному в каждой группе совпадающих элементов."

Вот тебе пример:

const
  a: array[1 .. 10] of integer =
    (1, 1, 2, 3, 4, 4, 4, 5, 6, 7);

var
  i, j, n: integer;

begin
  n := 10; i := 2;
  while i <= n do
    if a[i] = a[i - 1] then begin
      for j := i to n - 1 do
        a[j] := a[j + 1];
      dec(n);
    end
    else inc(i);

  for i := 1 to n do
    write(a[i]:4);
  writeln;
end.