Buenas, necesito ayuda, tengo esto
MODULE Rep;
FROM InOut IMPORT WriteString,WriteLn,Read;
VAR
c,bug:CHAR;
BEGIN
REPEAT
WriteString("Quieres continuar?");
WriteLn;
Read(c);
UNTIL c="n";
Read(bug);
END Rep.
Por que coño cuando sale del repeat, directamente termina el programa en vez de esperar a que le introduzca el nuevo caracter? Lo hago asi para poder ver el resultado y no se me cierre la ventana.
También me imprime 2 veces por pantalla la frase inicial...HELP!!!
En otros programas no me pasa y no se donde coño he fallado!!
