Ja dann ist ja einfach
Entweder mit explode() ein Array erzeugen, oder eine Funktion schreiben, die einen String als var-Argument bekommt und die erste Zahl rausschneidet und zurückgibt.
Dann ein Array[0..100] of Cardinal; deklarieren und die Zahlen nach und nach einsortieren. Mit der oben beschriebenen Funktion ungefähr so:
Delphi-Quellcode:
var
zaehler: Array[0..100] of Integer;
temp: Integer;
begin
// ggf. mit nullen füllen
while str <> '' do
begin
temp := getfirstnumber(str);
zaehler[temp] := zaehler[temp] + 1;
end;