Sistema de Stock em pascal

[Lichh]

Olá, precisava de ajuda de como poderia criar um sistema de Stock nesta maquina de bebidas que estou desenvolvendo ainda sou "novato" em pascal estou fazendo esta maquina de bebidas para aprender melhor como funciona a  linguagem pascal. 
Ate agora ainda não tive nenhuma ideia de como posso adicionar um sistema de stock a esta maquina se alguém tiver alguma dica ou souber de alguma forma agradeço toda a ajuda.

Program Maquinadevendas ;
Var Bebida : Char;
Var Valor  : String;
Var Dinheiro : Real;
Var DinheiroNovo : Real;
Var SomaDinheiro : Real;
Var Continuar : String;
var A,B,C,D,E,F,G,H,I,J,K,L : Char;
Const Agua = 0.50;
Const Sumo = 0.80;
Const Cola = 1.20;
Const Ucal = 1.00;





Begin
  
  
  G := Chr(201);
  H := Chr(205);
  I := Chr(187);
  J := Chr(186);
  K := Chr(200);
  L := Chr(188);
  
  
  
  Writeln ('	',G,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,I);
  Writeln ('	',J,'       ','        ','        ','           ','      ','        ',J);
  Writeln ('	',J,'                                                ',J);
  Writeln ('	',J,'                                                ',J);
  Writeln ('	',J,'                                                ',J);
  Writeln ('	',K,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,L);
  Repeat
    DinheiroNovo := 0;
    SomaDinheiro := 0;
    Dinheiro := 0;
    Writeln('Opções');
    Writeln ('1 - Agua:0.50$');
    Writeln ('2 - Sumo:0.80$');
    Writeln ('3 - Cola:1.20$');
    Writeln ('4 - Ucal:1.00$');
    
    Write('Escolha a sua Opção:');
    Read (Bebida);
    
    
    
    
    
    Case Bebida of
      
      '1':  begin
        Writeln('Voce escolheu Agua por favor intoduza 0.50$');
        Readln(Dinheiro);
        if
        (Dinheiro = Agua)
        then
        Writeln('Desfrute da sua Agua.');
        
        
        if
        (Dinheiro < Agua)
        then
        Begin
          SomaDinheiro := Dinheiro ;
          Repeat
            
            Writeln('O valor atrbuido é insufeciente ');
            Writeln(' Insira mais dinheiro');
            Readln(Dinheironovo);
            SomaDinheiro := Dinheironovo  + SomaDinheiro;
            Writeln('A quantia introduzida é', SomaDinheiro :8 :2)
          Until SomaDinheiro >= 0.50;
        end;
        if
        (SomaDinheiro > Agua)
        then
        
        Writeln('Desfrute da sua agua e aqui tem o seu troco',SomaDinheiro - Agua :8 :2);
        
        
      end ;
      
      
      
      
      
      
        '2':  begin
        Writeln('Voce escolheu Sumo por favor intoduza 0.80$');
        Readln(Dinheiro);
        if
        (Dinheiro = Sumo)
        then
        Writeln('Desfrute da sua Agua.');
        
        
        if
        (Dinheiro < Sumo)
        then
        Begin
          SomaDinheiro := Dinheiro ;
          Repeat
            
            Writeln('O valor atrbuido é insufeciente ');
            Writeln(' Insira mais dinheiro');
            Readln(Dinheironovo);
            SomaDinheiro := Dinheironovo  + SomaDinheiro;
            Writeln('A quantia introduzida é', SomaDinheiro :8 :2)
          Until SomaDinheiro >= Sumo;
        end;
        if
        (SomaDinheiro > Sumo)
        then
        
        Writeln('Desfrute do seu Sumo e aqui tem o seu troco',SomaDinheiro - Sumo :8 :2);
        
        
      end ;
      
      
      
      
      
      
       '3':  begin
        Writeln('Voce escolheu Cola por favor intoduza 1.20$');
        Readln(Dinheiro);
        if
        (Dinheiro = Cola)
        then
        Writeln('Desfrute da sua Cola.');
        
        
        if
        (Dinheiro < Cola)
        then
        Begin
          SomaDinheiro := Dinheiro ;
          Repeat
            
            Writeln('O valor atrbuido é insufeciente ');
            Writeln(' Insira mais dinheiro');
            Readln(Dinheironovo);
            SomaDinheiro := Dinheironovo  + SomaDinheiro;
            Writeln('A quantia introduzida é', SomaDinheiro :8 :2)
          Until SomaDinheiro >= Cola;
        end;
        if
        (SomaDinheiro > Cola)
        then
        
        Writeln('Desfrute do seu Sumo e aqui tem o seu troco',SomaDinheiro - Cola :8 :2);
        
        
      end ;
      
      
      
      
       '4':  begin
        Writeln('Voce escolheu Ucal por favor intoduza 1.00$');
        Readln(Dinheiro);
        if
        (Dinheiro = Ucal)
        then
        Writeln('Desfrute da sua Ucal.');
        
        
        if
        (Dinheiro < Ucal)
        then
        Begin
          SomaDinheiro := Dinheiro ;
          Repeat
            
            Writeln('O valor atrbuido é insufeciente ');
            Writeln(' Insira mais dinheiro');
            Readln(Dinheironovo);
            SomaDinheiro := Dinheironovo  + SomaDinheiro;
            Writeln('A quantia introduzida é', SomaDinheiro :8 :2)
          Until SomaDinheiro >= Ucal;
        end;
        if
        (SomaDinheiro > Ucal)
        then
        
        Writeln('Desfrute do seu Sumo e aqui tem o seu troco',SomaDinheiro - Ucal :8 :2);
        
        
      end ;
     
      Else
      Writeln('Opção Invalida');
      
      
      end;
			Repeat 
			Writeln('Deseja Continuar S ou N?');
			readln(Continuar);
      Until (Continuar = 'S') or (Continuar = 'N');
      
      Until Continuar = ('N');
      Writeln('Desfrute da sua bebida'); 
			  
 End.

 

[passarito]

Boas.

Para começar, deves dividir o teu programa por procedimentos e funções.

No corpo do programa podes fazer uma chamada ao menu e daí saltas para para a opção que se escolher.

Depois é só acrescentares as opções que quizeres, entre elas, a da opção de stock