package heapUsefulStuff2 is
 -- declare an array of adequate size
 type heapArray is array (1..25) of integer;
 max : constant integer := heapArray'last;
 first : constant integer := heapArray'first;
 
 procedure buildHeap ( a : in out heapArray ;
                      position : in integer);
 procedure getValue ( number : out integer);
 procedure showHeap (a : in heapArray; currentLast : in integer);
 procedure sortHeap (a : in out heapArray;
                     currentLast :in out integer);
end heapUsefulStuff2;