Hallo DeddyH,
entschuldige aber wenn ich das richtig verstanden habe, braucht mr_ eine Procedure/Function die sortiert, und keine sortierte Ausgabe. Das klingt verdammt nach Hausaufgabe.
(der Weg ist das Ziel)
Ich schlage vor, das ganze über ein record zu realisieren:
Delphi-Quellcode:
t_buecher: record
Anzahl : integer;
Katego : string[20];
end;
oder so ähnlich.
Für's Sortieren nimmt man dann irgendeinen Bubblesort-Abkömmling, den versteht jeder Lehrer,
oder aber wenn's wirklich was sinvolles sein soll, dann alle records in ein TList packen und mit TList.Sort sortieren. Da die Vergleichsfunktion Sache des Programmieres ist, kann man hübsche Sachen damit machen.
Gruß
K-H