[Resolvido] criar um programa em pascal de caixa eletronico

[diguinhomendes 0]

o prgrama da certo mais so que eu deposito por exemplo tres vezes o saldo da errado e nao consegui achar o erro alguem poderia me ajudar fico muito grato.

Program caixa ;
 
   var
   saldo,senha,login,saque,deposito,soma:real;
   resp,resposta:string;
     opcao:char;
   Begin
   
     repeat
     CLRSCR;
     WRITELN;writeln;
     writeln('[1]-Cadastrar Senha de Acesso');
     writeln('[2]-Deposito');
     writeln('[3]-saque');
     writeln('[4]-Saldo');
     writeln('[5]-Cancelar operação');
     writeln;writeln;
     
     opcao:=readkey;
     case opcao of
         '1': Begin
        writeln('Crie uma Senha de Acesso');
        readln(senha);
        writeln('senha criada com Secesso');
        readkey;
        end;
        '2':Begin
             repeat
		    writeln('Entre com a senha');
              readln(login);
              if senha<>login then
              Writeln('Erro,Por motivos de Segurança Reinicie o Programa.Aperte CTRL+C')
              else
              writeln('Entre com o Valor do do deposito');
              readln(deposito); 
              readkey;
              writeln('deseja fazer mais algun deposito? sim [s] ou não [n]');
              readln(resp);
             until (resp = 'N') or (resp = 'n');
              deposito :=(deposito+saldo);
              readkey;
            end; 
	     '3':Begin
          writeln('Entre com a Senha');
          readln(login);
          if senha<>login then
          Writeln('Erro,Por motivos de Segurança Reinicie o Programa.Aperte CTRL+C')
          else
          writeln('Entre com o Valor do saque'); 
          readln(saque); 
          readkey;
          end;
                '4': Begin
                     writeln('Entre com a Senha');
                     readln(login);
                     if senha<>login then
                     
				 Writeln('Erro,Por motivos de Segurança Reinicie o Programa.Aperte CTRL+C')
                     else
                     saldo:=saldo+deposito;
                      Writeln('Seu saldo é:',saldo:6:2);
                 readkey;
                 end;
                    else 
                     writeln('Deseja Fazer mais alguma coisa? [N] não [S] sim' );
                      end;
        until  (resposta=('n')) or (resposta=('N'));   
     End.

Ai gente me ajudei ficarei muito grato.

[diguinhomendes 0]

a consegui depois de muito esforço o deposito é saldo:=saldo+deposito; e no saque é saldo:=saldo-saque;e no saldo é saldo:=saldo; so isso valew gente

 

Program caixa ;
 
   var
   saldo,senha,login,saque,deposito,soma:real;
   resp,resposta:string;
     opcao:char;
   Begin
   
     repeat
     CLRSCR;


 WRITELN;writeln;
     writeln('[1]-Cadastrar Senha de Acesso');
     writeln('[2]-Deposito');
     writeln('[3]-saque');
     writeln('[4]-Saldo');
     writeln('[5]-Cancelar operação');
     writeln;writeln;
     
     opcao:=readkey;
     case opcao of
         '1': Begin
        writeln('Crie uma Senha de Acesso');
        readln(senha);
        writeln('senha criada com Secesso');
        readkey;
        end;
        '2':Begin
          
		writeln('Entre com a senha');
          readln(login);
          if senha<>login then
          Writeln('Erro,Por motivos de Segurança Reinicie o Programa.Aperte CTRL+C')
          

          else
          writeln('Entre com o Valor do do deposito');
          readln(deposito); 
          readkey;
           
          saldo:=saldo+deposito;
          end;
             
         
	     '3':Begin
          writeln('Entre com a Senha');
          readln(login);
          if senha<>login then
          Writeln('Erro,Por motivos de Segurança Reinicie o Programa.Aperte CTRL+C')
          

          else
          writeln('Entre com o Valor do saque'); 
          readln(saque);
		saldo:=saldo-saque;  
          readkey;
          end;
          
                
                '4': Begin
                     writeln('Entre com a Senha');
                     readln(login);
                     if senha<>login then
                     
				 Writeln('Erro,Por motivos de Segurança Reinicie o Programa.Aperte CTRL+C')
                     else
                     saldo:=saldo;
                      Writeln('Seu saldo é:',saldo:6:2);
                  
                 readkey;
                 end;
                 
                    else 
                     writeln('Deseja Fazer mais alguma coisa? [N] não [S] sim' );
		
                      end;
        until  (resposta=('n')) or (resposta=('N'));   
     End.