Примерно так:
## Код:
```
MODULE a1
TYPE
 tpRecord = POINTER TO RECORD
    a:BYTE
  END;

PROCEDURE Init*(tpr_:tpRecord; a_:BYTE);
BEGIN
  NEW(tpr_);
  tpr_.a:=a_
END Init;

END a1.
```


## Код:
```
MODULE a2;
IMPORT a1;
VAR
    myVar: a1.tpRecord;

BEGIN
  a1.Init(myVar,0)
END a1.
```


Подозреваю, что где-то что-то я забыл)) Подставить VAR перед указателем в процедуре?