Problem mit einer Schleife

[mkinzler]

pmax ist bei die immer gleich der Zählvariable, anstatt nur wenn Wert größer Maximum

Delphi-Quellcode:

    if max<focusarray[i] then
    begin
        max:=focusarray[i];
        pmax:=i;
    end;