Можно и так.
## Код:
```
PROCEDURE COMPOSE (b0, b1, b2, b3 : BYTE) : INTEGER; 
VAR i:INTEGER;
BEGIN 
   i := b3 MOD 100H;
   i := ASH(i,8)+b2 MOD 100H;
   i := ASH(i,8)+b1 MOD 100H;
   i := ASH(i,8)+b0 MOD 100H;
   RETURN i
END COMPOSE;
```

Процедуры ORD и BITS влияют на обработку выражений в компиляторе.