Здравствуйте! Помогите, пожалуйста. Вопрос: Имеется одномерный массив А (16), состоящий из целых чисел, вводимых с клавиатур

Вопрос: Имеется одномерный массив А (16), состоящий из целых чисел, вводимых с клавиатуры. Необходимо в этом массиве поменять местами следующие элементы: 2-й и 5-й, 4-й и 9-й, 7-й и 15-й, 9-й и 16-й. На печать вывести исходный массив А (16) и вновь сформированный в результате перестановки массив В (16). Из-за моего не очень большого опыта в работе с ПК создалась такая вот проблема. Заранее благодарен.

язык турбо паскаль, пробовал в какой-то проге сам написать, но не получилось. посоветуйте хотя бы что-то, пожалуйста

Program Dva_massiva;
var i, c : integer ;
a,b = array [1..16] of integer ;
begin
FOR i :=1 to 16 do
begin
writeln ('1..16',i,1);
readen (a);
b:=a;
end;
c:=b[2];
b[2]=:b[5];
b[5]:=c;
c:=b[4];
b[4]:=b[9];
b[9]:=c;
c:=b[7];
b[15]:=c;
c:=b[9];
b[9]:=b[16];
b[16]:=c;
writeln ('1..16:');
Fori:=1to16dowrite(a);
writeln;
writeln('16:')
For i:=1 to 16 do write(b,' ')
end