HI,
für dein Buchstaben zählen hätte ich einen ganz anderen Ansatz gewählt. Zuerst würde ich ein Array mit den entsprechenden Anzahlen der Zeichen füllen und dann dieses Array wieder ausgeben. Im Grunde geht das dann so:
Delphi-Quellcode:
procedure ArrayFüllen(s: str);
var
myarray: array[char] of integer;
i: Integer;
begin
for i := 1 to Length(s) do
inc(myarray[s[i]]);
end;
Die Ausgabe bleibt dir dann überlassen. Also einfach durch das gewonnene Array durchgehen und eben Anzahl-Mal so viele Zeichen generieren.
Bernhard
PS: Ist ja das Histogramm