function内からprocedure呼び出せる?