{Menu de Reportes. Ronnie del Pino}
procedure MenuCorrerReportes(var Usuarios:tRegistro;var TipoUsuario:byte);
var
    Opcion:byte;
    i:byte;
begin
if FechaActual <> 0 then;
begin
    ImprimirTitulo();
              writeln('1 - Tabla de posiciones');
              writeln('2 - Resultados por fecha');
              writeln('3 - Resultado de apuestas');
              writeln('4 - Mejores jugadores');
              writeln('5 - Mejores jugadores por puesto');
              writeln('6 - Equipo favorito');
              writeln('0 - Volver');
              write('Opcion: ');
              Opcion:=ValidarOpciones();
    Case Opcion of
            1: ImprimirTabladePosiciones (vUsuarios, CantUsuarios, FechaActual);
            2: ResultadosdelaFecha (vPuntajeJugador, JUGADORES, FechaActual);
            3: MostrasResultadosdeApuestas(vListaApuestas, vUsuarios, CantUsuarios, FechaActual);
            4: ImprimirMejoresJugadores(vPuntajeTotalJugadores);
            5: ReportesMenuResultadosPorPuesto(Usuarios, TipoUsuario);
            6: EquipoFavorito(vListaJugadores, vElegidoJugadores, vTacticas, CantUsuarios);
            0:begin
                If TipoUsuario=0 then
                    MenuAdministrador(FechaActual, TipoUsuario)
                else
                    MenuUsuario(TipoUsuario);
                end;
             else
                MenuCorrerReportes(Usuarios, TipoUsuario);
    end;
end;
else
    begin
    writeln;
    write('El Torneo no ha empezado. No puede ver reportes!');
    delay(TIEMPO_SALIDA);
    if TipoUsuario=0 then
        MenuAdministrador(FechaActual, TipoUsuario)
    else
        MenuUsuario(TipoUsuario);
    end;
end;