100
Sort_Data:
declare
   function "<" (L, R : Data_Type)
      return Boolean is
   begin
     if L.Count = R.Count then
        return L.Word > R.Word;
     else
        return L.Count > R.Count;
     end if;
   end "<";
•
   package Sorting is
      new Data_Vectors.Generic_Sorting ("<");
begin
   Sorting.Sort (Data_Vector);
end Sort_Data;