Help setting up an array of records

["Matt Thomas" <matt_ontheroad@hotmail.com>]

I know this might be a stupid question to most of you but i have just
started using Ada.

For my uni coursework i have to write a program to simulate a vending
machine.

I'm using an array of records to represent the items in the vending machine
but I dont know how to actually get the information into my array.  I need
to specify the name of the item, its cost and the quantity left.

Here is the record and array declaration, any help would be grateful.

MACHINE_SLOTS  :   constant := 6; --

type PRODUCT_TYPE is
   record
         NAME      :   STRING (1..12);
         LEN       :   POSITIVE;
         PRICE     :   INTEGER;
         QUANTITY  :   INTEGER;
   end record;

type PRODUCT_TYPE_ARR is array (1..MACHINE_SLOTS) of PRODUCT_TYPE;

PRODUCT   :   PRODUCT_TYPE_ARR;