Problem mit arithmetischer Kodierung

[shmia]

Dein angegebener Link liefert keine Info innerhalb zumutbarer Zeit
Du rechnest die ganze Zeit in Prozent; das ist nicht nötig.
Du kannst auch direkt in Wahrscheinlichkeiten 0..1 rechnen.
Noch besser ist es, den Datentyp Extended ganz zu vermeiden. Stattdessen arbeitest du
mit rationalen Zahlen (=Brüche).
Überall wo winproz{i} benützt wird, wird stattdessen temp{i} / dateigr benützt.
Entweder kannst du bei den Berechnungen den Nenner dateigr kürzen oder du erweiterst auf beiden Seiten
mit dem Nenner dateigr.

PS: ich habe den Pascal-üblichen Arrayoperator eckige Klammer ober durch geschweifte Klammer ersetzt, da sonst die Formatierung flöten geht.