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.