Напомните вывести число от 1 до x по возрастанию.. и убыванию

Можно в цикле for написать по возрастанию: for a:=1 to b или по убыванию: for a:=10 downto b