program grandt;

uses AyPDT, CRT;

const
    FECHAS_TORNEO = 19;
    EQUIPOS = 20;
    JUGADORES = 623;
    MAX_USUARIOS = 10;
    PRESUPUESTO = 60000000;
    SEPARADORH = '--------------------------------------------------------------------------------';

var
    jugadoress:tListaJugadores;
    jugador:tJugador;
    posicion:tPosicion;
    seleccion:byte;
    i:integer;

function OrdenarSecuencial(mayoramenor:boolean;eleccion:string):tListaJugadores;
//Ordena la Lista de Jugadores segun un parametro, 0 en el argumento1 "de menor a mayor, 1 en el argumento1 "de mayor a menor".
    var
        aux : tJugador;
        i,j : integer;

    begin
        if eleccion='precio' then
            for i:=1 to JUGADORES-1 do
                for j:=i+1 to JUGADORES do
                    if mayoramenor then
                        begin
                        if jugadoress[i].precio<jugadoress[j].precio then
                            begin
                            aux:=jugadoress[i];
                            jugadoress[i]:=jugadoress[j];
                            jugadoress[j]:=aux;
                            end;
                        end
                    else
                        begin
                        if jugadoress[i].precio>jugadoress[j].precio then
                            begin
                            aux:=jugadoress[i];
                            jugadoress[i]:=jugadoress[j];
                            jugadoress[j]:=aux;
                            end;
                        end;

        if eleccion='id' then
            for i:=1 to JUGADORES-1 do
                for j:=i+1 to JUGADORES do
                    if mayoramenor then
                        begin
                        if jugadoress[i].precio<jugadoress[j].ID then
                            begin
                            aux:=jugadoress[i];
                            jugadoress[i]:=jugadoress[j];
                            jugadoress[j]:=aux;
                            end;
                        end
                    else
                        begin
                        if jugadoress[i].precio>jugadoress[j].ID then
                            begin
                            aux:=jugadoress[i];
                            jugadoress[i]:=jugadoress[j];
                            jugadoress[j]:=aux;
                            end;
                        end;
        OrdenarSecuencial:=jugadoress;

    end;


procedure Imprimir_Todos_Los_Jugadores();
    var
        i,j : integer;
        salir : string;

    begin
    clrscr();
    i:=1;
    salir:='';
    while (salir<>'q') do
        begin
        clrscr();
        writeln(SEPARADORH);
        writeln('ID':3,' ','APELLIDO Y NOMBRE':28,'  ','PRECIO':8,' ','EQUIPO':14,'    ','POSICION');
        writeln(SEPARADORH);
        j:=1;

        while (j<=18) do
            begin
            if i<=JUGADORES then
                writeln(jugadoress[i].id:3,' ',jugadoress[i].nombre:28,'  ',(jugadoress[i].precio/1000000):8:1,'M ',jugadoress[i].equipo_real:14,'    ',jugadoress[i].posicion:15)
            else
                writeln('');
            inc(i);
            inc(j);
            end;
        writeln(SEPARADORH);
        readln(salir);
        if (i>JUGADORES) then
            i:=1;
        end;
    end;

procedure Imprimir_Jugadores_De_Posicion(posicion:tPosicion);
    var
        i,j : integer;
        salir : string;

    begin
    clrscr();
    i:=1;
    salir:='';
    while (salir<>'q') do
        begin
        clrscr();
        writeln('ID':3,' ','APELLIDO Y NOMBRE':28,'  ','PRECIO':8,' ','EQUIPO':14,'    ','POSICION');
        writeln(SEPARADORH);
        j:=1;

        while (j<=18) do
            begin
            if i<=JUGADORES then
                begin
                if jugadoress[i].posicion=posicion then
                    begin
                    writeln(jugadoress[i].id:3,' ',jugadoress[i].nombre:28,'  ',(jugadoress[i].precio/1000000):8:1,'M ',jugadoress[i].equipo_real:14,'    ',jugadoress[i].posicion:15);
                    inc(j);
                    end;
                end
            else
                begin
                writeln('');
                inc(j);
                end;

            inc(i);

            end;

        if (i>JUGADORES) then
            begin
            //writeln('dfdfsdfsdfsdfsdfsdf',i);
            i:=1;
            end;

        writeln(SEPARADORH);
        readln(salir);
        end;
    end;

begin

    for i:=1 to JUGADORES do
        begin
        obtenerJugador(i, jugador);
        jugadoress[i]:=jugador;
        end;

    writeln('Eliga el numero de lista');
    writeln('1- Todos los jugadores ordenados por equipo');
    writeln('2- Todos los jugadores ordenados por precio');
    writeln('3- Jugadores de una Posicion ordenados por equipo');
    writeln('4- Jugadores de una Posicion ordenados por precio');

    readln(seleccion);
    case(seleccion) of
    1:
        begin
        OrdenarSecuencial(true,'id');
        Imprimir_Todos_Los_Jugadores();
        end;
    2:
        begin
        OrdenarSecuencial(true,'precio');
        Imprimir_Todos_Los_Jugadores();
        end;
    3:
        begin
        writeln('Ingrese ARQUERO DEFENSOR MEDIOCAMPISTA o DELANTERO');
        OrdenarSecuencial(true,'id');
        readln(posicion);
        Imprimir_Jugadores_De_Posicion(posicion);
        end;
    4:
        begin
        writeln('Ingrese ARQUERO DEFENSOR MEDIOCAMPISTA o DELANTERO');
        OrdenarSecuencial(true,'precio');
        readln(posicion);
        Imprimir_Jugadores_De_Posicion(posicion);
        end;
    end
end.