Ответ: Если Вы пишете PascalABC.Net 3.2, то процедура Swap() там встроенная.
Ответ: Также, «для шика», она может быть реализована кортежным присваиванием вида (a,b):=(b,a);
Ответ: //PascalABC.Net 3.2procedure swap (var a1, a2: integer);beginvar promt:=a1;a1:=a2;a2:=promt;end;beginvar a:=ReadArrInteger (‘Вводите массив: ‘, readinteger (‘Размерность : ‘));var i:=-1;while (i+2)<length (a) dobegini+=2;swap (a[i], a[i-1]);end;a.Print;end.