Ответ:

Условие примера 2 обрезано после слов «по …», поэтому неизвестно, в каком порядке требуется вывести элементы. Пришлите нижнюю часть текста целиком. Если имеется в виду обратный порядок, используйте цикл от 7 до 1:

for i := 7 downto 1 do
  write(a[i], ' ');