LEN procedure + fix record/array passing to procedures.