100 + 100 + 123,59 = 26???

[Illuminator-23-5]

bei mir klappts auch einwandfrei, der code dürfte also schon stimmen, aber kleiner tipp:
du könntest dir um die ganten i1, i2, i3... Variablen-deklarationen zu sparen, eine lokale laufvariable in jeder prozedur zu definieren. Falls das nicht geht, kannst du schreiben: var i: array[0..19] of integer; dann wär das ganze auch ein bisschen übersichtlicher...