[D_E_N_]

по скорости почти всё проходит, не проходит по правильности выдачи результатов

Во-вторых, в основной программе

Код:

inc(n);
readln(n);

это я виноват: inc(n) осталось с тех пор, когда я автоматизировал ввод, чтоб по 100 раз не вводить одни и те же числа