Что надо написать вместо многоточия, чтобы вывести элементы массива X[1..N] в обратном порядке?
for k:=1 to N do
writeln ( ... );