package Insertion_Sort is type Integer_Array is array(Natural range <>) of Integer; procedure Sort(A: in out Integer_Array); end Insertion_Sort;