ЧТО НЕ ТАК С НЕЙ? НЕ РАБОТАЕТ!

Answer 1

1) delit написана как процедура, а вызывается как функция.
Нужно переделать в функцию (с return delit) и передавать ей только значение Х. И writeln (k) внутри неё не нужно.
Или оставить процедурой, но тогда вызов и использование очень неудобно.
2) в сравнения добавить равенство, иначе при равных количествах делителей выводиться ничего не будет

Или же