Hilfe! Problem in Pascal!

[Sofa5000]

Hilfe! Kann mir jemand helfen? Ich lerne gerade das Programmieren und mache ein paar einfache Programme aber bei diesem habe ich ein Problem!

Der Sinn von dieses Programms:
der Benutzer gibt gültige Note ein
abbgebrochen wir wenn der Benutzer die Zahl null einbibt
und ich muss es mit einer while anweisung machen!

hier ist es:

Delphi-Quellcode:

program durchw;
uses wincrt;
var note,sum,i,x:integer;
begin
     i:=-1;
     sum:=0;
     writeln('Gib die Note ein');
     while (note>0) do begin
           sum:=sum+note;
           i:=i+1;
     end;
writeln(sum/i);
end.

Kann mir jemand sagen wo der Fehler liegt?

Danke!!

[edit=MrSpock]Programmtags hinzugefügt. Mfg, MrSpock[/edit]