Ввести одномерный массив A , вывести его. Проверить, имеется ли в массиве, хотя бы одна пара соседних чисел, являющихся
противоположными. Если имеется, то поменять местами первую
встретившуюся такую пару.

решить, мучаюсь уже часа 3, понимаю, что мне нужно получить след элемент массива, реверснуть его, сравнить с предыдущим, поменять их местами и реверснуть обратно. Я прокляну этот паскаль после того как сдам эту лабу

program qwe;

var

a:array of integer;

n,k,i:integer;

begin

writeln('Введите размерность массива: ');

readln(n);

setlength(a,n);

randomize;

k:=0;

for i:=0 to n-1 do

begin

a:=random(5)-3;

write(a,' ');

end;

writeln;

for i:=0 to n-2 do

if (a+a[i+1]=0) and (a<>0) and (a[i+1]<>0) then k:=k+1;

if (k=0) then writeln ('В массиве нет ни одной пары соседних взаимно противоположных чисел')

else writeln('В массиве соседних пар взаимно противоположных чисел - ',k,' шт');

readln;

end.

Объяснение: