Ну тогда уж:
## Код:
```
TYPE
  Packet* = RECORD
    pos- : INTEGER; (* оно же length, обойдёмся без Seek() *)
    data- : POINTER TO ARRAY OF BYTE;
  END;

PROCEDURE (VAR p : Packet) Init* (length : INTEGER), NEW;
PROCEDURE (VAR p : Packet) WriteByte* (x : BYTE), NEW;
...
PROCEDURE SendPacket* (stream : Stream; p : Packet);
...
```
