{**************************************************************************************************************}
{Imprime una Lista de los Mejores Jugadores. Juan Manuel Castro Pippo}
Procedure ImprimirMejoresJugadores( var vUsuarios: tUsuarios;var TipoUsuario: byte; FechaActual: byte; CantUsuarios: byte; var vPuntajeJugador: tPuntajeJugador; var vListaApuestas: tListaApuestas;
var vPuntajeTotalJugadores: tPuntajeTotalJugadores; var vElegidoJugadores: tElegidoJugadores; var vTacticas: tTacticas; var vListaJugadores: tListaJugadores; UsuarioActual: byte;
var Equipo: tVEquipo; var Condicion: tVCondicion; var RegEquipo: TRegEQUIPO);
var
    i,j,k, AuxID: integer;
    Jugador: tJugador;
    Top, ElementosxPagina, Tecla: byte;
begin
    InicializarBytes(Tecla);
    i := 1;
    k := 1;
    Top := 25;
    ElementosxPagina := 15;
    while (Tecla <> LETRA_S) do
        begin
        clrscr();
        writeln('25 MEJORES JUGADORES EN LO QUE VA DEL TORNEO');
        writeln('');
        writeln('POS':4,'APELLIDO Y NOMBRE':28,'POSICION':15,'EQUIPO':15,'ACUMULADO':10);
        writeln(SEPARADORH);
        j := 1;
        if (i > JUGADORES) then
            i := 1;
        if (k > Top) then
        begin
            k := 1;
            i := 1;
        end;
        while (j <= ElementosxPagina) and (k <= Top) do
        begin
            AuxID := vPuntajeTotalJugadores[i].ID;
            Jugador := vListaJugadores[AuxID];
            writeln(k:4,Jugador.Nombre:28,tPosicionAString(Jugador.Posicion):15,Jugador.Equipo_Real:15,vPuntajeTotalJugadores[i].PuntajeTotal:10);
            inc(k);
            inc(j);
            inc(i);
        end;
        writeln(SEPARADORH);
        write('Presione cualquier tecla para cambiar de pagina.');
        write(' Volver al menu anterior? (s): ');
        Tecla := ord(upcase(readkey));
        end;
        MenuCorrerReportes(vUsuarios, TipoUsuario, FechaActual, CantUsuarios, vPuntajeJugador, vListaApuestas, vPuntajeTotalJugadores, vElegidoJugadores, vTacticas, vListaJugadores,
        UsuarioActual, Equipo, Condicion, RegEquipo);
end;