how could I make this pickaxe script slowly delete every child in this model called "Rock"?

local tool = script.Parent
local head = tool.AxeHead
local stick = tool.Stick
local wielder = game.Players.LocalPlayer
local mouse = wielder:GetMouse()

tool.Activated:Connect(function(rock)
    print("wielder has selected" , mouse.Target)
    if mouse.Target.Parent.Name == "Rock" and mouse.Target.Parent:IsA("Model") then
        local rock = mouse.Target.Parent
        local rocks = rock:FindFirstChild("Part")
        while rocks ~= nil do
            rocks:Destroy()
            wait(.02)

        end
    end
end)