Внесите в программу изменения так, что бы числа выводились в обратном порядке - от большого к 2 (Pascal ABC)
For var... меняем на for var n:=k to 1 do