Lazarus Programm haut vor dem Anzeigen der Antwort ab

[Wotan1]

Warum Endet dieses Programm, bevor es "Notendurchschnitt" ausgegeben hat?
Vielen Dank schonmal im Vorraus


program Project2;
uses
SysUtils,crt;
var
Punkte: String;
A: TStringArray;
kPunkte,x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,Anzahl,i:byt e;
Notendurchschnitt: real;

begin
writeln('Notendurchschnittsrechner');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln;
writeln ('Punkte: ');
writeln ('Kursarbeitspunkte: ');
gotoxy(22,4);readln(Punkte);
gotoxy(22,5);readln(kPunkte);
writeln;

A :=Punkte.Split(',');
x0:=strtoint(A[0]);
x1:=strtoint(A[1]);
x2:=strtoint(A[2]);
x3:=strtoint(A[3]);
x4:=strtoint(A[4]);
x5:=strtoint(A[5]);
x6:=strtoint(A[6]);
x7:=strtoint(A[7]);
x8:=strtoint(A[8]);
x9:=strtoint(A[9]);


anzahl := 0;
for i := 1 to length(Punkte) do
begin
if (Punkte[i] = ',') then
anzahl := anzahl + 2;
end;


Notendurchschnitt:=(((x1+x2+x3+x4+x5+x6+x7+x8+x9+x 0)/anzahl)*2+kPunkte)/3;
write('Notendurchschnitt: ');write(Notendurchschnitt);


readln;
end.