Estaría teniendo un problema con este ejercicio a la hora de aplicar while, en la cual ignora esta orden y pasa directamente a un comando siguiente ya que no me verifica la desigualdad que coloco en mi while, haciendo que el programa entre en un loop infinito.
Adjunto el código para que lo puedan visualizar:
program practico5ejercicio5;
var
denominante: char;
total, ingreso: integer;
begin
prueba:=0;
total:=0;
ingreso:=0;
writeln ('escriba su estado de cuenta original, total es el siguiente valor');
readln (total);
writeln ('realice su operacion, denominante es el siguiente valor');
readln (denominante);
While (denominante <> 'X') do
begin
writeln ('llegue a la mitad, ingreso es el siguiente valor');
read (ingreso);
begin
case Denominante of
'D' : begin
writeln ('llegue a 3 cuartos, total es el siguiente valor (soy deposito)');
total:=total+ingreso;
writeln (total);
end;
'R' : begin
writeln ('llegue a 3 cuartos, total es el siguiente valor (soy retiro)');
total:=total-ingreso;
writeln (total);
end;
end;
writeln ('realice su operacion, soy del final, denominante viene ahora');
readln (Denominante);
end;
end;
if (Denominante = 'X') then
writeln ('este es su total actual ', total);
end.