Еще вариант использовать record без выравнивания:
## Код:
```
RECORD [noalign]      (* без тега, размер = 7 байт *)
   c: SHORTCHAR;   (* смещение 0, размер = 1 byte *)
   x: INTEGER;   (* смещение 1 , размер = 4 bytes *)
   i: SHORTINT   (* смещение 5, размер = 2 bytes *)
END
```
