Why won't my voting system make each player have a vote?

local Selection = script.Parent
local Pad1 = Selection.Pad1
local Pad2 = Selection.Pad2
local Pad3 = Selection.Pad3

Pad1Value = 0

local CheckTheCheck = false
local valueChanged = false

local Players = game:GetService("Players")
Players.PlayerAdded:Connect(function(player)
    local voted = Instance.new("BoolValue")
    voted.Name = "VoteCheck"
    voted.Parent = player
    while true do
        if CheckTheCheck == true then
            if voted.Value == false then
                wait()
                valueChanged = true
                voted = true
            end
        end
        wait()
    end
end)

while true do
    Pad1.Touched:Connect(function()
        CheckTheCheck = true
        wait()
        if valueChanged == true then
            Pad1Value = Pad1Value + 1
            valueChanged = false
            print(Pad1Value)
        end
    end)
    Pad2.Touched:Connect(function()

    end)
    Pad3.Touched:Connect(function()

    end)
    wait(1)
end