Все просто:

Всю программу писать не буду. Вы должны сами понять и переписать (не скопировать).

1. Как создать массив вы знаете (пусть будет переменная"a")

2. Затем выводим массив на экран

3. Далее Пишем цикл. (+i,k:integer)

        For i:=1 to 6 do begin

                                          k:=A[i]; A[i]:=a[13-i]; A[13-i]:=k;

                                     end;

4, Массив уже изменен. Осталось вывести его на экран.

Как Вы поняли основная часть "3". Остальное - стандрт.