{**************************************************************************************************************}
{Calculo del puntaje total de cada jugador. Juan Manuel Castro Pippo}
procedure CalcularPuntajeTotalJugador (Var vPuntajeJugador:tPuntajeJugador; Var vPuntajeTotalJugadores:tPuntajeTotalJugadores; FechaActual:byte);
var
    i,j: integer;

begin
for i:=1 to JUGADORES do
    begin
    j:=1;
    vPuntajeTotalJugadores[i].ID:=i;
    vPuntajeTotalJugadores[i].puntajetotal:=0;
    while (j<=FechaActual) do
        inc(vPuntajeTotalJugadores[i].puntajetotal, vPuntajeJugador[i,j]);
    end;
end;