Two loops running at the same time + number staying at 0 when it shoudn't?

I'm having some problems with my script. I'm new to scripting, so I don't know the answer to fix it.

I have two boxes; each is an answer to a question. I want it set up so when you click on it, the choices disappear and and the percentage, total agreed/disagreed, and the choices fade in in 1 second. While they are doing this, the percentage is going up by 1 at the right speed to take 1 second to get to the percentage that agreed with you.

My problems are 1) The percentage just goes to 0 instead of the percentage, and 2) The right box fades in after the left box is done; not at the same time. How can I fix these problems?

Sorry for the long code!

RFrame = script.Parent.RFrame
LFrame = script.Parent.LFrame
LValue = LFrame.TotalAgreed.Value.Value
RValue = RFrame.TotalAgreed.Value.Value

script.Parent.LFrame.Choice1.MouseButton1Down:connect(function(Choice1)
	if RFrame.Choice2.Visible == true then
	LFrame.Choice1.Visible = false
	LFrame.TotalAgreed.Visible = true
	LFrame.Choice.Visible = true
	LFrame.Percent.Visible = true
	LFrame.TotalAgreed.TextTransparency = 0
	for i = 1,0,-.08 do 
		LFrame.Percent.TextTransparency = i
		LFrame.Choice.TextTransparency = i
		LFrame.TotalAgreed.TextTransparency = i
		wait(.08)
	end
	for i = 0,(LValue/(LValue+RValue)),(1/(LValue/(LValue+RValue))) do
		LFrame.Percent.Text = (i.."%")
		wait(1/(LValue/(LValue+RValue)))
	end
	RFrame.Choice2.Visible = false
		RFrame.TotalAgreed.Visible = true
		RFrame.Choice.Visible = true
		RFrame.Percent.Visible = true
		RFrame.TotalAgreed.TextTransparency = 0
		for i = 1,0,-.08 do 
			RFrame.Percent.TextTransparency = i
			RFrame.Choice.TextTransparency = i
			RFrame.TotalAgreed.TextTransparency = i
			wait(.08)
		end
		for i = 0,(RValue/(RValue+LValue)),(1/(LValue/(LValue+RValue))) do
			RFrame.Percent.Text = (i.."%")
			wait(1/(RValue/(RValue+LValue)))
		end
	end
end)

script.Parent.RFrame.Choice2.MouseButton1Down:connect(function(Choice2)
	if LFrame.Choice1.Visible == true then
		RFrame.Choice2.Visible = false
		RFrame.TotalAgreed.Visible = true
		RFrame.Choice.Visible = true
		RFrame.Percent.Visible = true
		RFrame.TotalAgreed.TextTransparency = 0
		for i = 1,0,-.08 do 
			RFrame.Percent.TextTransparency = i
			RFrame.Choice.TextTransparency = i
			RFrame.TotalAgreed.TextTransparency = i
			wait(.08)
		end
		for i = 0,(RValue/(RValue+LValue)),(1/(LValue/(LValue+RValue))) do
			RFrame.Percent.Text = (i.."%")
			wait(1/(RValue/(RValue+LValue)))
		end
		LFrame.Choice1.Visible = false
		LFrame.TotalAgreed.Visible = true
		LFrame.Choice.Visible = true
		LFrame.Percent.Visible = true
		LFrame.TotalAgreed.TextTransparency = 0
		for i = 1,0,-.08 do 
			LFrame.Percent.TextTransparency = i
			LFrame.Choice.TextTransparency = i
			LFrame.TotalAgreed.TextTransparency = i
			wait(.08)
		end
		for i = 0,(LValue/(LValue+RValue)),(1/(LValue/(LValue+RValue))) do
			LFrame.Percent.Text = (i.."%")
			wait(1/(LValue/(LValue+RValue)))
		end
	end
end)