Дан массив из 100 случайных чисел в диапазоне от -100 до 100. Для каждого положительного элемента определить, есть ли в массиве отрицательный элемент с противоположным значением; если да, заменить эти элементы на 0 — Pascal(Паскаль)

program PascalGuru;

var
  A, newA: array [1 .. 100] of integer;
  n, i, j: integer;

begin
  writeln('Vvedite razmer massiva A~100:');
  read(n);
  for i := 1 to n do
    A[i] := -100 + random(201);

  write('Vot zadanyi massiv A: ');
  for i := 1 to n do
    write(A[i], '  ');
  writeln;

  for i := 1 to n do
    if A[i] > 0 then
      for j := 1 to n do
        if (i <> j) and (A[j] < 0) and (abs(A[j]) = A[i]) then
        begin
          A[i] := 0;
          A[j] := 0;
        end;

  writeln;
  write('Vot ishodnyi massiv A: ');
  for i := 1 to n do
    write(A[i], '  ');
  writeln;

  readln;
  readln;

end.