Why isn't my Leaderstats not saving any data?

Alright, so I have a Leaderboard script and it works fine but the problem is, that it's not saving my data or other players data and another problem I'm having is the tools, they're not saving when the player leaves the game after they bought it from my shop gui, I don't know why it's not working properly. please help.

The error I keep getting in my Leaderboard script is this:

ServerScriptService.Leaderboard:17: attempt to index global 'data' (a number value)

My Leaderboard script:

local dataStoreService = game:GetService("DataStoreService")
local dataStore = dataStoreService:GetDataStore("Currency")

game.Players.PlayerAdded:Connect(function(player)
    local leaderboard = Instance.new("Folder",player)
    leaderboard.Name = "Leaderboard"

    local cash = Instance.new("IntValue",leaderboard)
    cash.Name = "Cash"
    cash.Value = 50

    local recieved,failed = pcall(function()
        data = dataStore:GetAsync(player.UserId)
    end)

    if recieved then
        cash.Value = data[1]
        print("Data was received")
    else
        print("Data was not received")  
    end

    while true do wait(30)
        dataStore:SetAsync(player.UserId, cash.Value)
    end
end)

game.Players.PlayerRemoving:Connect(function(player)
    local leaderboard = player.Leaderboard
    local cash = leaderboard.Cash

    local saved,failed = pcall(function()
        dataStore:SetAsync(player.UserId, cash.Value)
    end)

    if saved then
        print("Data was saved")
    else
        print("Data was not saved")
    end
end)

My Inventory Saving script:

local dataStoreService = game:GetService("DataStoreService")
local dataStore = dataStoreService:GetDataStore("Currency")

game.Players.PlayerAdded:Connect(function(player)
    local leaderboard = Instance.new("Folder",player)
    leaderboard.Name = "Leaderboard"

    local cash = Instance.new("IntValue",leaderboard)
    cash.Name = "Cash"
    cash.Value = 50

    local recieved,failed = pcall(function()
        data = dataStore:GetAsync(player.UserId)
    end)

    if recieved then
        cash.Value = data[1]
        print("Data was received")
    else
        print("Data was not received")  
    end

    while true do wait(30)
        dataStore:SetAsync(player.UserId, cash.Value)
    end
end)

game.Players.PlayerRemoving:Connect(function(player)
    local leaderboard = player.Leaderboard
    local cash = leaderboard.Cash

    local saved,failed = pcall(function()
        dataStore:SetAsync(player.UserId, cash.Value)
    end)

    if saved then
        print("Data was saved")
    else
        print("Data was not saved")
    end
end)