Exercie 4 :Remise dans un magasin V2

Nous allons maintenant voire comment utiliser la boucle WHILE.
Nous allons maintenant permettre a l'utilisateur de rentrez lui même le prix de chacun de ses articles. Le vrai probleme de cette exercice est que l'on ne sait pas combien d'article notre client a hecheté, donc le boucle WHILE s'impose.
Voici le programme:
program exercice 4;
const
SeuilRemise=500;
Remise=0.05;
var
Montant,MontantRemise,MontantTotal:real;
begin
MontantTotal:=0;
write('Entrez le prix de votre article :');
readln(Montant);
while (Montant>=0) do
begin
MontantTotal:=MontantTotal+Montant;
write('Entrez le prix de votre article :');
readln(Montant);
end;
if MontantTotal>SeuilRemise then
begin
MontantRemise:=(1-Remise)*MontantTotal;
writeln('Vous beneficiez d'une remise de ',Remise*100:1:0,'%');
writeln('Vous ne devez plus que:',MontantRemise:1:2,' au lieu de :',MontantTotal:1:2);
end
else
writeln('Vous ne bénéficiez pas de la remise!');
wrteiln('Merci au revoire!');
end.