Leaderboard scripting problems with no erros?

So I wanted to make a leaderboard system for a game, problem is, it does work until the second player gets a higher score then the first one, the second player goes to one, but the first player doesn't go to 2? It's a server script inside workspace (inside a folder) I commented the datastores because I work in team create and it bugs out :/ The problem is in function UpdateStats I believe.

local DataVersion = 1

local DataStore = game:GetService("DataStoreService")
local LeaderboardSave = DataStore:GetDataStore("LBS_"..DataVersion)

local key = 1902 -- Do NOT change! Change dataversion if you want to reset

LeaderBoard = {}
LeaderVals = {}

function UpdateSave()
	LeaderBoard = {}
	LeaderVals = {}
	
--	local NC = LeaderboardSave:GetAsync(key)
	local NC = {'empty', 'empty', 'empty', 'empty', 'empty', 'empty', 'empty', 'empty', 'empty', 'empty',}
	local LV = {100, 10, 9, 8, 7, 6, 0, 0, 0, 0}
	for index, save in pairs(NC) do
		table.insert(LeaderBoard,save)
	end
	for index, save in pairs(LV) do
		table.insert(LeaderVals,save)
	end
	
--	LeaderBoard:SetAsync(key,LeaderBoard)
end

function replaceStats(plr, num)
	
	LeaderBoard[num] = plr.Name
	LeaderVals[num] = plr:WaitForChild('Stats'):WaitForChild('NetWorth').Value
	print('replaced '..num)
	
end
function UpdateStats()
	wait(0.1)
	
	for index, plr in pairs(game.Players:GetPlayers()) do
		local net = plr:WaitForChild('Stats'):WaitForChild('NetWorth')
		if LeaderVals[1] < net.Value then
			replaceStats(plr, 1)
		elseif LeaderVals[2] < net.Value then
			replaceStats(plr, 2)
		elseif LeaderVals[3] < net.Value then
			replaceStats(plr, 3)
		elseif LeaderVals[4] < net.Value then
			replaceStats(plr, 4)
		elseif LeaderVals[5] < net.Value then
			replaceStats(plr, 5)
		end
	end
end

function DisplayStats()
	local TLs = workspace:WaitForChild('HighStats'):WaitForChild('Main'):WaitForChild('SurfaceGui')
	
	TLs.Player1.Text = LeaderBoard[1]..': '..LeaderVals[1]	
	TLs.Player2.Text = LeaderBoard[2]..': '..LeaderVals[2]
	TLs.Player3.Text = LeaderBoard[3]..': '..LeaderVals[3]
	TLs.Player4.Text = LeaderBoard[4]..': '..LeaderVals[4]
	TLs.Player5.Text = LeaderBoard[5]..': '..LeaderVals[5]
	TLs.Player6.Text = LeaderBoard[6]..': '..LeaderVals[6]
	TLs.Player7.Text = LeaderBoard[7]..': '..LeaderVals[7]
	TLs.Player8.Text = LeaderBoard[8]..': '..LeaderVals[8]
	TLs.Player9.Text = LeaderBoard[9]..': '..LeaderVals[9]
	TLs.Player10.Text = LeaderBoard[10]..': '..LeaderVals[10]
end

while wait(1) do
	UpdateSave()
	UpdateStats()
	DisplayStats()
end