Bonjour et merci d'avoir pris le temps de lire ma requête

Voilà, j'aimerais trouver comment créer une variable qui s'enregistre dans une boucle, c'est-à-dire : voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses crt;
var boisson:integer;
//var canette:integer;
var x:integer;
var n1:integer;
begin
n1:=0;
//canette:=100;
Repeat
writeln('Autre client?YES=1 NO=2');
readln(x);
IF (x=1)
THEN
      writeln('Choississez votre boisson 1=coca');
      writeln('Choississez votre boisson 2=fanta');
      writeln('Choississez votre boisson 3=sprite');
      writeln('Choississez votre boisson 4=ice tea');
      writeln('Choississez votre boisson 5=aquarius');
      readln(boisson);
      if (boisson in [1,2,3,4])then writeln('Le prix est 1,00€')
      else if(boisson in [5])then writeln('le prix est 1;20€');
      if (boisson in [1,2,3,4]) then writeln(n1,'+',1,'=',n1+1)
      else if (boisson in [5]) then writeln(n1,'+',1.20,'=',n1+1,20);
 
UNTIL (x=2);
//Until (canette=0)
end.
Le problème étant que n1 revient toujours à 0 au lieu de s'enregistrer a chaque fois que je relance la boucle, est-il possible que n1 s'adapte et garde le résultat précédent à chaque fois ?
Mon but étant que le prix de chaque canette soit comptabilisé et qu'à la fin, quand je mets x=2 pour ne plus avoir d'autre commande, ça m'affiche le prix total.