Ada Help

Hey everyone,

I wondering if anyone knew anything about Ada and could give me a hand. I have a Quick_Sort.adb file with the correct algorithm, but when I compile I get a invalid prefix for selected component error. Was wondering if anyone could tell me why?

Here's the code:

procedure Quick_Sort(Values : in out Array_Type) is
   
   -------------------------------------------------------------------------------------
       procedure Swap(Left : in out Element_Type; Right : in out Element_Type) is
      --Swaps hte values of two variables 
         Temp : Element_Type;
      begin 
         Temp := Left;
         Left := Right;
         Right := Temp;
      end Swap;
   
   ---------------------------------------------------------------------------------------
       function ">=" (Left : in Element_Type; Right : in Element_Type) 
       			return Boolean is
      begin 
         return not(Left < Right);
      end ">=";
   
   ---------------------------------------------------------------------------------------
       procedure Split(Values      : in out Array_Type;
       			 Split_Index :    out Positive) is
         Left  : Positive;
         Right : Positive;
      begin 
         Left  := Values'First + 1;
         Right := Values'Last;
         loop --each iteration, two out of place values are swapped
         --Left to Right search
            loop
            --exit when searches cross or find an element on wrong side
               exit when Left > Right or else
                  		  Values(Left) < Values(Values'First);
               Left := Left + 1;
            end loop;
         
         --right to left search
            loop
            --exit when searches cross or find an element on wrong side
               exit when Left > Right or 
                  		Values(Right) < Values(Values'First);
               Right := Right - 1;
            end loop;
         --exit outer loop when searches cross
            exit when Left > Right;
         --swap the two values on the wrong side of the split value
            Swap(Values(Left), Values(Right));
            Left := Left + 1;
            Right := Right -1;
         end loop;
      	-- move split value to proper location
         Swap(Values(Values'First), Values(Right));
      		--return the index of the values that divides the two portions
         Split_Index := Right;
      End Split;
   ------------------------------------------------------------------------------
      Split_Index : Positive;
   begin 
      if Values'Length > 1 then
         Split(Values, Split_Index);
         Quick_Sort(Values(Values'First..Split_Index -1 ));
         Quick_Sort(Values(Split_Index + 1..Values'Last));
      end if;
   end Quick_Sort;

I'm getting the error in Quick_Sort_Test.

Any help would be awesome.
Hunter M.