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

[Merlin]

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

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

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

[Merlin]

Program z;
    
const
        a: array [1..10] of integer =
                                  (5, 4, 3, 2, 2, 1, -1, -2, -3, -4);
   Var
      i , j , P, S :integer;
     
Begin
 n:10;   P:=1;
      for i:=1 to n do
        if a[i] < 0 then begin     { произведение отриц. элем. }
          P:= P* a[i]; 
end;

    S:=0;
      for i:=1 to n do
         if a[i] > 0  then begin   { Сумма положит. элементов }
           S:= S + a[i];
end;

 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;
writeln( ' Сумма положительных элементов S=', S:3:7);
writeln( ' Произведение отрицательных элементов P=' ,P:3:7);
end.

Volvo, подскажи есть ли тут ошибки ?