package heapUsefulStuff 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);
end heapUsefulStuff;