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)