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