redteam=1
blueteam=2

for k,v in pairs(player.GetAll()) do
 if team.NumPlayers(redteam)>team.NumPlayers(blueteam) then
    v:SetTeam(blueteam)
 else
    v:SetTeam(redteam)
 end
end