uses crt, SysUtils;
const
    constOPCIONES = 'C';
    constCATEGORIAS = 5;
    constERRORES = 3;
        constERRORDESAFIO = 2;
type
    subrOpciones = 'A' .. constOPCIONES;
    subrCategorias = 1 .. constCATEGORIAS;

    conjCompletadas = set of subrCategorias;
    conjRespuestas = set of char;

    cadenaPreg = string[110];
    cadenaOpci = string[240];

    arrOpciones = array [subrOpciones] of cadenaOpci;

    tipoPreguntas = record
        numCategoria: subrCategorias;
                numPregunta: integer;
        pregunta: cadenaPreg;
        opciones: arrOpciones;
        respuesta: subrOpciones;
        explicacion: cadenaOpci;
    end;

    lista = ^nodo;
    nodo = record
        datos: tipoPreguntas;
        sig: lista;
    end;

    tipoLista = record
            pri, ult: lista;
        end;

    vdlCategorias = array [subrCategorias] of tipoLista;

procedure imprimirPregunta(p: tipoPreguntas); // UI - imprime la pregunta actual
procedure precEnter(); // espera a que el jugador precione "ENTER" para continuar
procedure precESC(); // espera a que el jugador precione "ESC" para continuar
procedure nuevaPartida(var ok:boolean); // espera a que el jugador precione "ESC" o "ENTER"
procedure intro(); // imprime la portada del juego
procedure outro();
procedure jugadorGano(); // imprime la pantalla de juego terminado-Victoria
procedure jugadorPerdio(); // imprime la pantalla de juego terminado-Derrota
procedure contesto(ok: boolean; p: tipoPreguntas); // imprime en pantalla si la respuesta del jugador es correcta y su explicacion
procedure presentarColor(); // presenta las opciones de colores
procedure presentarPuntuacion(puntaje, error: integer); // presenta el puntaje final de cada partida

procedure elegirColor(var catActual: subrCategorias; completadas: conjCompletadas; var valido: boolean);
procedure Preguntas (Preguntas:Lista; error:integer);
procedure partida(vdl: vdlCategorias; res: boolean);

procedure cargarVDL(var vdl: vdlCategorias); // busca el archivo 'categorias.txt' y se lo asigna a un Vector De Listas
procedure liberarMemVDL(var vdl: vdlCategorias); // libera la memoria ocupada por el Vector De Listas