This script won't change player team or do the intermission system. why?

local InRound = game.ReplicatedStorage.InRound
local Status = game.ReplicatedStorage.Status
local Players = game:GetService("Players")
local Teams = game:GetService("Teams")
local teamBlue = Teams.Blue
local teamRed = Teams.Red
local teamSpectators = Teams.NotPlaying
local roundLength = 200
local intermissionLength = 60
local preload = 5
local count = game.ReplicatedStorage.Count
local stopped = workspace.Barrier
local LobbySpawn = game.Workspace.LobbySpawn
local GameAreaSpawn = game.Workspace.GameAreaSpawn

local function onPlayerDied(player, character)
    player.Team = teamSpectators
    local id = player:GetUserIdFromNameAsync()
    player.Character = id
    player.CharacterAppearanceId = id
    player:LoadCharacter()
end


local function play(player)
    -- Set the player's team using one of the following:
    local teamm = {teamBlue, teamRed}
    local index = math.random(1,#teamm)
    local playerR = teamm[teamRed]:GetPlayers()
    local playerB = teamm[teamBlue]:GetPlayers()
    local placement = teamm[index]
    player.Team = placement
    if #playerB < #playerR then 
        player.Team = teamm[teamBlue]
    elseif #playerB > #playerR then
        player.Team = teamm[teamRed]
    end 
    player:LoadCharacter()  
end

InRound.Changed:Connect(function()
    wait(1)
    if InRound.Value == true then
        for _, player in pairs(game.Players:GetChildren()) do
            play()
        end
    else
        for _, player in pairs(game.Players:GetChildren()) do
            onPlayerDied()
        end
    end
end)

function keep()
    if count.Value == 0 then
        stopped.CanCollide = false
        stopped.Transparency = 1
    elseif count.Value < 0 then
        stopped.CanCollide = true
        stopped.Transparency = 0
    end
end

local function roundTimer()
    while wait() do
        for i = intermissionLength, 1, -1 do
            InRound.Value = false
            wait(1)
            Status.Value = "Intermission: ".. i .." seconds left!"
        end
        for i = roundLength, 1, -1 do
            InRound.Value = true
            wait(1)
            Status.Value = "Game: ".. i .." seconds left!"
        end
    end
end