pascal: call j from pascal