Programm Böse Sechs

[Coolend]

Delphi-Quellcode:

while (wurf<>6) do
      begin
        wurf:=random(6)+1;
        Writeln('Dein Wurf war: ',wurf);
        spielstand:=spielstand+wurf;
        writeln('Dein aktueller Spielstand lautet: ',spielstand,', Weitermachen? "J" oder "N"');
        readln(e);
        if e=N then
        writeln('Dein aktueller Punktestand lautet: ',spielstand);
        if wurf=6 then
        spielstand:=0;
        writeln('Du hast verloren dein Spielstand lautet: ',spielstand);
      end;
readln();
end.

Folgendes Problem:
Er erkennt das mit dem "J" und "N" nicht.
Wie geht das richtig?
Und wenn der Wurf 6 ist soll das spiel aufhören und nicht noch weiter addieren.