Testauswertungsprogramm - Variablen umändern

[FreePascal]

Hallo , so schaut das Testauswertungsprogramm zu Beginn aus.

Delphi-Quellcode:

program testauswertung 
uses crt; 
var nr, summe, punkte:integer; 


begin 
     clrscr; 
     summe:=0; 
              FOR nr:=1 TO 4 DO 
              begin 
                  writeln('Aufgabe: ',nr); 
                  readln(punkte); 
                  summe:=summe+punkte; 
              end; 


              writeln('Gesamtpunktezahl: ',summe); 


              readln; 


end.

Jetzt will ich das ürsprüngliche Programm insofern umbauen, so dass der Start- u. Endwert der zu summierenden Aufgaben frei wählbar ist.
Ich habe überlegt, dass man dazu zwei neue Variablen braucht, nämlich startwert und endwert
Die muss man dann oben bei der Variablendeklaration einfügen. Und dann muss man es auch da einbauen:
FOR nr:=startwert TO endwert DO, Ich glaube aber, bei summe:=0 muss ich auch noch etwas umändern, oder
.....
Dann würde das ganze ja folgendermaßen aussehen:

Delphi-Quellcode:

program testauswertung 
uses crt; 
var startwert, endwert, nr, summe, punkte:integer; 


begin 
     clrscr; 
     summe:=0; 
              FOR nr:=startwert TO endwert DO 
              begin 
                  writeln('Aufgabe: ',nr); 
                  readln(punkte); 
                  summe:=summe+punkte; 
              end;

Alles kein Problem, es geht zum Ausführen, doch beim Ausführen steht dann:
Aufgabe: 0
dann muss man eine zahl eingeben, z.b. 34
Gesamtpunktezahl: 34

Könnt ihr mir hier weiterhelfen
Danke, Martin