Type
             Demo = record
               Part1 : byte;
               Part2 : string;
               Part3 : array[1..10] of boolean;
             End;

             Demo2 = record
               PartA : array[1..10] of demo;
               PartB : byte;
               PartC : real;
               PartD : boolean;
             End;

           Var
             Test : array[1..100] of demo2;