Чесно, либо я перепил пенного, либо хочу спать, но тебя я реально не понимаю))) Толком с расстановкой можешь объяснить?
Куда ты хочешь передавать функцию
Код:
NumFunc(j:integer):integer
???
И в какой процедуре должно быть так:
Код:
if NumFunc(10) = 5 then begin
???