Delphi-Quellcode:
program CountTo100;
var
I: Integer;
begin
for I := 1 to 50 do WriteLn(I);
WriteLn('Halbzeit');
for I := Succ(I) to 100 do WriteLn(I);
WriteLn('Fertig');
end.
Ab
WriteLn('Halbzeit')
hat I keinen definierten Zustand. D.h.
Succ(I)
produziert in der zweiten Schleife einen zufälligen Wert. Kann sein, dass es jetzt für dich (zufällig) funktioniert. Würde ich mich aber nicht drauf verlassen.