its makes the ball but it wont it's not doing input ended i think go how do i fix?

the remote evnt

local plr = game.Players.LocalPlayer
local InputService = game:GetService("UserInputService")

InputService.InputBegan:Connect(function(input)
    local key = input.KeyCode 
    if key == Enum.KeyCode.R then 
   game.Workspace.act:FireServer()

    end
end)

local plr = game.Players.LocalPlayer
local InputService = game:GetService("UserInputService")

InputService.InputEnded:Connect(function(input)
    local key = input.KeyCode 
    if key == Enum.KeyCode.R then
       game.Workspace.fer:FireServer()
    end
end)

the script :(

local fly = true
game.Workspace. act.OnServerEvent:Connect(function()
	local L = game.Players.LocalPlayer
	
	local plr = game.Players.LocalPlayer.Character
	local i = Instance.new("Part",plr)
	
i.Position = plr.UpperTorso.Position
i.Anchored = true
i.BrickColor = BrickColor.new("Dark blue")
i.Shape = "Ball"
i.Material = "Neon"
i.Name = "Fire"
i.CanCollide = false
while fly == true do
	wait(.78)
	i.Size = i.Size + Vector3.new(.4,.4,4) 
	
end
end)
game.Workspace.fer.OnServerEvent:Connect(function()
	local we = game.Players.LocalPlayer
	local plr = game.Players.LocalPlayer.Character
	local x = plr.Fire
	local wa = game.Players.LocalPlayer.Character:WaitForChild("Fire")
	local b = Instance.new("BodyVelocity",wa)
	local mouse = we:GetMouse()
	b.MaxForce = Vector3.new(math.huge,math.huge,math.huge)
	x.Anchored = false
	b.Velocity = mouse.Hit.LookVector * 34
wa.Parent = workspace
	
end)