5 subtype Lengths is Natural range 0 .. 50;
7 type Subscriber (NLen, ALen: Lengths := 50) is record
8 Name : String(1 .. NLen);
9 Address : String(1 .. ALen);
12 type Subscriber_Ptr is access all Subscriber;
14 package District_Subscription_Lists is new Lto9_Pkg2
15 (Element_Type => Subscriber,
16 Element_Ptr => Subscriber_Ptr,
19 District_01_Subscribers : District_Subscription_Lists.List_Type;
21 New_Subscriber_01 : aliased Subscriber :=
22 (12, 23, "Brown, Silas", "King's Pyland, Dartmoor");