[Drozh]

Код:

type
 TSmall = -200..200;

 TGyper = record
  x, y: TSmall;
 end;