Дан одномерный массив. Составить программу на pascal

[Esmadjin]

Дан одномерный массив A(N) .Составить программу на языке pascal abc. Все отрицательные элементы заменить на сумму всех предшествующих и последующих элементов этого массива, а положительные на полусумму всех предшествующих и последующих элементов этого массива.

[macomics]

var
   i, N, S: Integer;
   A: array of Integer;
begin
   Write('Введите N = '); ReadLn(N);
   SetLength(A, N);
   for i := Low(A) to High(A) do begin
      Write('Введите A[', i, '] = '); ReadLn(A[i]);
   end;
   S := 0;
   for i := Low(A) to High(A) do inc(S, A[i]);
   for i := Low(A) to High(A) do
      if A[i] < 0
         then A[i] := S - A[i]
      else if A[i] > 0
         then A[i] := (S - A[i]) div 2;
   for i := Low(A) to High(A) do WriteLn('A[', i, '] = ', A[i]);
end.