Ответ:
Условие примера 2 обрезано после слов «по …», поэтому неизвестно, в каком порядке требуется вывести элементы. Пришлите нижнюю часть текста целиком. Если имеется в виду обратный порядок, используйте цикл от 7 до 1:
for i := 7 downto 1 do write(a[i], ' ');
