定义二维数组常量(结构体)

const   DayList:   array[0..6,1..4]   of   SmallInt
                                      =((1,     5,11,1),
                                          (6,   10,11,1),
                                          (11,15,17,2),
                                          (16,20,23,3),
                                          (21,25,23,3),
                                          (26,31,11,1),
                                          (99,99,17,2)
                                        );

TShopItem = record
     Name : string;
     Price : currency;
   end;

const

   Items : array[1..3] of TShopItem =
   (
     (Name : 'Clock'; Price : 20.99),
     (Name : 'Pencil'; Price : 15.75),
     (Name : 'Board'; Price : 42.96)
   ) ;