mi programa en pascal no corre?

Question

estoy haciendo un menu y cuando introduzco los numeros no pasa nada, oprimo enterr y nada consulto los libros y no encuentro la solucion si pueden ayudarme lo agradeceria...
PROCEDURE COMPUTACION_I;
USES CRT;
VAR OPCION:CHAR;
PROCEDURE MENU;
VAR OPCION: CHAR;
BEGIN
CLRSCR;
WRITELN('MENU')
WRITELN('1. REGISTRO DE CLIENTES)
WRITELN('2. REGISTRO DE PRESTAMOS)
WRITELN('3. SALIR)
WRITE('SELECCIONE UNA OPCION: ')
READ(OPCION);
OPCION:=UPCASE(OPCION);
WRITELN;
END;
PROCEDURE CLIENTES;
VAR RCLIENTES:INTEGER;
BEGIN
WRITELN('REGISTRO DE CLIENTES');
WRITELN('1. INGRESAR');
WRITELN('2. CONSULTAR');
WRITELN('3. MODIFICAR');
WRITELN('4. ELIMINAR');
WRITELN('SELECCIONE UNA OPCION: ');
READ(RCLIENTES);
END;
PROCEDURE PRESTAMOS;
VAR RPRESTAMOS:INTEGER;
BEGIN
WRITELN('REGISTRO DE PRESTAMOS');
WRITELN('1. INGRESAR');
WRITELN('2. CONSULTAR');
WRITELN('3. MODIFICAR');
WRITELN('4. ELIMINAR');
WRITELN('SELECCIONE UNA OPCION: ');
READ(RPRESTAMOS);
END;
BEGIN
REPEAT

MENU;
CASE OPCION OF
'1': CLIENTES;
'2': PRESTAMOS;
ELSE WRITELN('SELECCIONE UNA DE LAS OPCIONES...');
END;
UNTIL OPCION='3';
END.

EL MENU PRINCIPAL NO HACE NADA DE NADA

Answer 1

Revisa las opciones de la instruccion Case of, en esta no usas Else...este solo se usa con el IF...

por que no manejas todas tus varibles para aceptar opción como enteros tal como lo hiciste en tu procedimiento préstamos??? es más fácil que si lo haces con variables de tipo char... Yesmasrecomendable utilizar nombres de variable únicos, al inicio tienes dos veces la variable opcion de tipo char (después de uses crt y después del procedimiento menu).

Que errores marca tu compilador???

Answer 2

Los programas hacen exactamente lo que tu dices y efectivamente tu programa no hace nada porque fijate que
declaras las variables haces la lectura pero no le dices al programa que hacer con la opcion deseada por otro lado el programa no acaba, y el END. ya no se usa?
te sugiero que para pruebas preliminares le des algun uso a las variables que ingresas que escriba algo dependiendo de la opcion si es que queres ver algo en la pantalla.
ademas no tienes la opcion de salida la numero 3 porque si lo que quieres es un loop infinito entonces no deberia tener esa opcion

Answer 3

debe ser porque no tiene pies

Answer 4

haber deja lo reviso
.
.
creo que nunca mandas llamar los procedimientos clientes ni prestamos, no recuerdo como llamarlos en pascal pero parece que nunca los llamas , solo los declaras

es muy dificil asi mejor agregame [e-mail]