Problem mit Konsole

[Golum1289]

Ich hab ein Programm grschrieben, welches Preise berechnet für ein Fotostudio.
Funktioniert alles, aber ich will, wenn ich genug eingekauft habe, das die Schleife beendet wird und der Endpreis angezeigt wird.

Hier ist der Quelltext

Delphi-Quellcode:

begin
writeln('Hallo, machen Sie ihre Eingabe');
  Writeln;
  Write('===========================================') ;
  Writeln;
  Writeln ;
  Write('Artikelnummer: ');
  Writeln; Writeln;
  Write('1 - Passfoto'); Writeln;
  Write('2 - Freundschaftsbilder'); Writeln;
  Write('3 - poster')    ;
  Writeln ;
  Writeln ;
        repeat
           write('Geben sie die Artikelnummer ein : ');readln(artikelnr);
           write('Geben sie die Anzahl ein        : ');readln(anzahl);
         case artikelnr of

         1: preis := 1.50;
         2: preis := 2.00;
         3: preis := 2.50;

         end;



        warenwert := preis * anzahl ;
        mwstbetrag := warenwert * mwstsatz ;
        net := warenwert + mwstbetrag ;

        if anzahl >= 20 then  rsatz  := 0.2
        else
        if anzahl < 6 then rsatz := 0
        else rsatz := 0.1;

        rabatt := net * rsatz;
        brut := net - rabatt;
        gesamtpreis := gesamtpreis  + brut ;

        //ausgabe

Writeln ('Artikelnummer     :           ',artikelnr);
Writeln ('Anzahl            :           ',Anzahl,' Stueck');
Writeln ('Warenwert         :',warenwert:15:2,' EUR') ;
Writeln ('Nettobetrag       :',net:15:2,' EUR') ;
Writeln ('Rabatt            :',Rabatt:15:2,' EUR') ;
Writeln ('Brutto            :',brut:15:2,' EUR') ;
      Writeln ('Gesamtpreis       :',gesamtpreis:15:2,' EUR') ;
              writeln('Gesamtpreis:' + FloatToStr(gesamtpreis));

writeln;
writeln;
      until artikelnr = 0;



       end.

Im Anhang findet sich auch der Quelltext.

Ich danke euch vorab für die Hilfe.

MFg
Golum1289