Código
Hola de nuevo amigo, al compilar el programa me da dos errores en el menú. Os cuento... tengo un menu para un programa y un submenu que quiero enlazar si es que se puede. He puesto donde me da error cual sería la solución?
gracias y saludos
BEGIN
repeat
opc:= Menu;
case opc of
1: lee_libro(libro);
2: busca_datos(biblioteca, TAMBIBLIOTECA, buscado);
3: lee_prestamos(prestado);
4: busca_datos(biblioteca, TAMBIBLIOTECA, buscado);
5: begin
writeln('Introduzca el nombre del fichero de datos: ');
readln(nombre);
graba_fichero(nombre, biblioteca, TAMBIBLIOTECA);
end;
6: begin
writeln('Introduzca el nombre del fichero: ');
readln(nombre);
lee_fichero(nombre, biblioteca, TAMBIBLIOTECA);
end;
7: opc1; (* ME DA ERROR *)
end;
until(opc=8);
repeat
opc1:= Submenu;
case opc1 of
9: imprime_libros(biblioteca, TAMBIBLIOTECA);
10: imprime_prestados(prestado, TAMBIBLIOTECA);
11: begin
writeln('--------------------------------------------------------------');
writeln('LISTADO DE PRECIOS MAXIMOS, MINIMOS, LA MEDIA Y EL VALOR TOTAL');
writeln('--------------------------------------------------------------');
writeln('Valor máximo: ');
maximo(biblioteca, TAMBIBLIOTECA);
writeln('Valor mínimo: ');
minimo(biblioteca, TAMBIBLIOTECA);
writeln('Valor medio: ');
media(biblioteca, TAMBIBLIOTECA);
writeln('Valor total Biblioteca');
suma_coleccion(biblioteca, TAMBIBLIOTECA);
end;
12: opc; (* ME DA ERROR *)
end;
until(opc1=12);
END.