Bereinigen des Records

[phobosx112]

Moin Moin
ich bin grad dabei für die schule ein programm zu schreiben mit dem man die relativen häufigkeiten von zeichen in einer zeichenkette feststellt. das programm funktioniert auch beim ersten mal gut aber beim zweiten mal kombiniert das programm das was ich eingegeben hab mit dem vorigen Datensatz
ich benutz diese datenbank, keine ahnung wie man die nennt
type
tdatensatz = record
zeichen:char;
anzahl:integer;
haeufig:real;
end;
:ein beispiel was das programm ausspuckt:
1. eigegeben: alles klar
Gesamtlänge: 10
Zeichen Anzahl Häufigkeit
a 2 0,2
l 3 0,3
e 1 0,1
s 1 0,1
1 0,1
k 1 0,1
r 1 0,1
2. eingegeben: dummbeutel
Gesamtlänge: 10
Zeichen Anzahl Häufigkeit
a 2 0,2
l 3 0,3
e 3 0,3
s 1 0,1
1 0,1
k 1 0,1
r 1 0,1
d 1 0,1
u 2 0,2
m 2 0,2
b 1 0,1
t 1 0,1
l 1 0,1


also brauch ich einen befehl der nach der berechnung der häufigkeiten die datensätze bereinigt.

vielen dank im voraus
greeeetz
B1