В массиве переставить местами первый и второй отрицательные элементы, третий и четвертый отрицательные элементы и т.д. Определить, как изменилось положение ми-нимального и максимального элементов массива при его преобразовании — Pascal(Паскаль)

uses crt;
var a:array[1..100]of integer;
i,n,b,max,min:integer;
 
begin
 clrscr;
 write('N -> ');
 readln(N);
 write('Введите массив -> ');
 for i:=1 to N do read(a[i]);
 readln;
 min:=1;
 max:=2;
 for i:=1 to N do if a[i]>a[max] then max:=i else if a[i]<a[min] then min:=i;
 writeln('MIN - A[',min,'] = ',a[min]);
 writeln('MAX - A[',max,'] = ',a[max]);
 for i:=1 to N div 2 do
 begin
  b:=a[i*2-1];
  a[i*2-1]:=a[i*2];
  a[i*2]:=b;
 end;
 min:=1;
 max:=2;
 for i:=1 to N do if a[i]>a[max] then max:=i else if a[i]<a[min] then min:=i;
 writeln('MIN - A[',min,'] = ',a[min]);
 writeln('MAX - A[',max,'] = ',a[max]);
 readln;
end.