Pascal und Klassen

[Oxmyx]

Delphi-Quellcode:

TMensch = record
  Arme: array[0..1] of TArm;
  Beine: array[0..1] of TBein;
  Kopf: TKopf;
  Rest: TRest;
  IQ: Integer;
end;