[Bargest]

Во-первых, для скорости sqrt(x) лучше посчитать один раз и сохранить, потом везде вызывать.
Во-вторых, в основной программе

Код:

inc(n);
readln(n);

Как-то бессмысленно.
В-третьих, если убрать вызов функции (записать ее код прямо в цикле), то несколько ускорится.