Aca les dejo mi codigo:

program P5ej7;

VAR

monto, k, montoactual : real ;
y,letra : char;

BEGIN
 writeln ('ingrese el caracter "A" y a continuación el saldo anterior de su cuenta');
 readln (y, monto);

 writeln ('ingrese D para depósito, R para retiro y el monto');

 montoactual:= monto;
WHILE (letra<> 'X')  DO
  begin
readln (letra, k);
IF (letra = 'R') THEN montoactual:= montoactual - k
ELSE IF (letra = 'D') THEN montoactual:= montoactual + k
end;

IF letra = 'x' THEN writeln (' el monto actual de su cuenta es de: ', ' ', montoactual)
end.

Me da ese error y la verdad no se que pueda ser, probe de todo y no le encuentro la vuelta, desde ya gracias.