Man muss nicht unbedingt prüfen, man muss nur Fehlerfrei programmieren
Da ich das glaub ich ursprünglich verbrochen habe:
for j:=0 To stellen -1 do
muss einfach nur
for j:=0 To stellen -2 do
heißen, da pos[stellen-1] natürlich das letzte Element des Array ist und pos[j+1] daher für j=stellen-1 nie funktionieren kann.
Das nachher alles bei 151515 endet, muss man über die äußere Schleife steuern, kann also sein das bei
k := StrToInt(FloatToStr(power(stellen,max)));
nochwas abgezogen werden muss, oder mit max-1 gerechnet werden muss.
Hab das damals ja ohne Delphi ins Forum getippt.