pmax steht auf 0, wenn in der Schleife nichts größer als der erste Wert ist,
und schon stimmt was nicht mehr, wenn du auf den Index 0 zugreifen willst. (den es nicht gibt
)
Geh mal in die Projektoptionen, schalte die Bereichsprüfung an und schau ob was passiert.
Delphi-Quellcode:
//max:=0; // eigentlich nutzlos, da es nachher sowieso wieder überschrieben wird
//pmax:=0; //
...
max:=f1;
pmax:=1; // vergessen zu setzen
for i:=2 to 9 do // 1 ist doch schon gesetzt, wozu nochmal prüfen?