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

[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, n :integer;
      temp: array [1..10] of 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 div 2 do begin  
      temp: = a[i];                { Выдаёт ошибку type mismatch }
       a[i]:= x[n-i +1];
       a[n-i+1]:=temp;
end;

  for i := 1 to n do
    write(a[i]:4);
  writeln;
writeln( ' Сумма положительных элементов S=', S:3);
writeln( ' Произведение отрицательных элементов P=' ,P:3);
end.

    

Что с этой инверсией не так, что я сделал неправильно ?