Why does my automatic group accessory remover not work?

I'm trying to make an automatic hat remover for ranks that are below ID 17 in a group, but it doesn't work. Can someone help?

local Delete_All_Accessories = true; local Delete_Face = false;

local invisibleHead = false

local Reset_Character_Appearance = false; local Default_Character_Appearance = 384534;

local ps = game:GetService('Players')

local deleteHats = function(char, delete_All_Accessories) print('here') local children = char:GetChildren()
local ffc = game.FindFirstChild local tbd = {}

-- Delete Hats

game.Players.PlayerAdded:Connect(function(Player) if Player:GetRankInGroup(2793208) <= 17 then for i = 1,#children do local child = children[i] if child.ClassName == 'Accessory' then print(child.Name) if delete_All_Accessories == true then table.insert(tbd, child) print('tis') else local handle = ffc(child, 'Handle') if handle then local hatAccessory = ffc(handle,'HatAttachment') if hatAccessory then table.insert(tbd, child) end end end end end

for i = 1,#tbd do
    tbd[i]:Destroy()
end     

end

local function CharacterAppearanceLoaded(char) local children = char:GetChildren()
local ffc = game.FindFirstChild

-- Delete Hats
deleteHats(char, Delete_All_Accessories)        

-- Delete Faces
if Delete_Face then
    local head = ffc(char, 'Head')
    if head then
        local face = head:FindFirstChildOfClass('Decal')
        if face and face.Name == 'face' then
            face:Destroy()
        end
    end
end

--Make the head disappear

if invisibleHead then 
    local head = char:FindFirstChild('Head')
    if head then
        head.Transparency = 1
        for _,child in pairs(head:GetChildren()) do
            if child.ClassName == 'SpecialMesh' then
                child:Destroy()
            end
        end
    end
end

end

ps.PlayerAdded:connect(function(player) if Reset_Character_Appearance then player.CharacterAppearanceId = Default_Character_Appearance player:LoadCharacter() else player.CharacterAppearanceLoaded:connect(CharacterAppearanceLoaded) end end)