Das ist das Problem. Das muss add i to summe heißen.
Bei dir passiert folgendes:
Beim 1. Durchlauf (i=1) wird summe (0) zu i addiert, i bleibt 1.
Beim 2. Durchlauf (i=2) wird 2 von summe abgezogen, summe wird -2.
Beim 3. Durchlauf (i=3) wird summe (-2) zu i addiert, i ist wieder 1 (!)
Beim 4. Durchlauf (i=2) wird 2 von summe abgezogen, summe wird -4.
Beim 5. Durchlauf (i=3) wird summe (-4) zu i addiert, i wird -1
Beim 6. Durchlauf (i=0) wird 0 von summe abgezogen, summe bleibt -4.
Beim 7. Durchlauf (i=1) wird summe (-4) zu i addiert, i wird -3
Beim 8. Durchlauf (i=-2) wird -2 von summe abgezogen, summe wird -2.
Beim 9. Durchlauf (i=-1) wird summe (-2) zu i addiert, i wird -3
Beim 10. Durchlauf (i=-2) wird -2 von summe abgezogen, summe wird 0.
Beim 11. Durchlauf (i=-1) wird summe (0) zu i addiert, i bleibt -1.
Beim 12. Durchlauf (i=0) wird 0 von summe abgezogen, summe bleibt 0.
Beim 13. Durchlauf (i=1) wird summe (0) zu i addiert, i bleibt 1.
Nach dem 13. Durchlauf ist das Programm im selben Zustand wie nach dem 1. Durchlauf -> Endlosschleife.
P.S.: Verschoben -> Delphi/RPG+CL/Sonstige