with ada.text_io;
with ada.integer_text_io;
with quick_sort;
procedure testQsort is
  type array_type is array (positive range <>) of integer;
   a : array_type (1..21);
   procedure myQuick is new quick_sort (element_type => integer,
                                      array_type => array_type );
	 
 
   begin
	  -- fill array
	   for i in 1..21 loop
	    ada.integer_text_io.get (a(i));
	  end loop;
	  ada.text_io.new_line;
	  
	  -- print original array
	  ada.text_io.put_line (" here are the original values ");
	  for j in 1..21 loop
	    ada.integer_text_io.put (a(j), 4);
	  end loop;
	  
	  -- sort array
	  myQuick (a);
	  
	  	  -- print sorted array
	  ada.text_io.new_line;
	  ada.text_io.put_line (" here are the sorted values ");
	  for j in 1..21 loop
	    ada.integer_text_io.put (a(j), 4);
	  end loop;
	  
	  
end testQsort;