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;