Source position: line 0
procedure ReadPort(
Port: LongInt;
var Value: Byte
);procedure ReadPort(
var Value: Word
var Value: LongInt
);