Внести в программу изменения так,чтобы числа выводились в обратном порядке -от большего к 2.

меняем строку for var... на

for var n:=k to 1 do

будет выводить значение от большего до двух