program Example_Of_Types;

type Array_Def  = array[12..25] of integer;

     Char_Def   = array[0..27] of char;

     Real_Array = array[-17..42] of real;

     Dog_Food   = array[1..6] of boolean;

     Airplane   = array[1..12] of Dog_Food;

     Boat       = array[1..12,1..6] of boolean;
var Index,Counter      : integer;

    Stuff              : Array_Def;

    Stuff2             : Array_Def;

    Puppies            : Airplane;

    Kitties            : Boat;
begin  (* main program *)

   for Index := 1 to 12 do

      for Counter := 1 to 6 do begin

         Puppies[Index,Counter] := TRUE;

         Kitties[Index,Counter] := Puppies[Index,Counter];

      end;

   Writeln(Puppies[2,3]:7,Kitties[12,5]:7,Puppies[1,1]:7);

end.  (* of main program *)


Result of execution

   TRUE   TRUE   TRUE