Problem mit Konsolenanwendeung

[Golum1289]

Ich brauche dringend Hilfe.Ich programmiere derzeit ein Programm für ein Fotostudio.
Funktioniert soweit, aber beim Gesamtpreis komme ich nicht weiter.

Hier der Quelltext:

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
 artikelnr, anzahl : integer;
 preis, warenwert, rsatz, rabatt,
 net, brut, gesamtpreis, mwstbetrag : real;

const
mwstsatz = 0.19;

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;
writeln;
       until artikelnr = 0;

       end.

Ich danke euch für eure Vorschläge)