Pascalzim, banco

//4. Fazer um programa que leia o saldo inicial de uma conta corrente, apresente e execute em seguida um menu com as seguintes opções:
//1. Efetuar um depósito e mostrar o novo saldo
//2. Efetuar um saque e mostrar o novo saldo
//3. Mostrar o saldo
//4. Sair
//Notar que somente pode ser efetuado um saque com valor igual ou inferior ao saldo da conta.
//Quando forem realizados depósitos ou saques, o saldo deve ser atualizado.
Program Pzim ; var saldo,depo,saque,saldoat:real; op:integer; Begin op:=0; writeln('Informe o seu saldo: '); read(saldo); while (op 4) do begin writeln('1. Efetuar um depósito e mostrar o novo saldo'); writeln('2. Efetuar um saque e mostrar o novo saldo'); writeln('3. Mostrar o saldo '); writeln('4. Sair '); read(op); case op of 1:begin writeln('Informe quanto deseja depósitar: '); read(depo); saldo:=depo+saldo; writeln('Seu saldo sera de: ',saldo:1:2); end; 2:begin writeln('Informe Quanto deseja sacar'); read(saque); saldo:=saldo-saque; if saldo > 0 then writeln('Seu saldo atual sera: ',saldo:1:2) else if saldo > -7000 then begin write('Seu saldo sera Negativo, é sera cobrado 7% sobre o valor negativo que é: ',saldo:1:2); writeln('O juros pago por mês sera de: ',(saldo*0.07):1:2) end else writeln('Seu Saldo Excedera o cheque Especial, Assim encerando sua conta!!'); end; 3:writeln('Seu saldo é: ',saldo:1:2); 4:writeln('Tecle ENTER para terminar o programa'); else writeln('Oção Invalida!!'); end; end;