Testauswertungsprogramm

[FreePascal]

Hallo, hab es jetzt doch mit IF THEN ELSE gemacht:

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); 
IF (summe>23) AND (summe<=29) THEN writeln('Sie haben ein Genügend erreicht!')
ELSE IF (summe>29) AND (summe<=37) THEN writeln('Sie haben ein Befriedigend erreicht!')    
ELSE IF (summe>37) AND (summe<=44) THEN writeln('Sie haben ein Gut erreicht!') 
ELSE (summe>44) AND (summe<=50) THEN writeln('Sie haben ein Sehr GUt erreicht!'); 
readln; 
end.

So hab ich zwei Fehler drinne, sagt der debug mod., und zwar bei 19,35 sagt er:
19,35: Illegal Expression
19,35: Fatal:Syntax Error, ";" expected but "THEN" found.



Ich lade das Programm mal hoch, vlt könnte jemand schauen und es dann wieder hochladen...
Danke, Martin