Sliding Door Help?

Hello I am trying to make a script for my friend. But I have a question. How would I make the sliding door stop when the for loop is over. And it wait's a couple seconds until you can touch the Pad. THen it comes back down?

DoorSystem = script.Parent --The Model
Door = DoorSystem.Door1 --The Door's Name
DoorPad = DoorSystem.DoorPad1 -- The Door Pad

function Slide()
	for i = 1, 31 do --Keep on changing the number 31 until the Part goes in properly. 
    	Door.CFrame = Door.CFrame + Vector3.new(0, 0.1, 0)
     	wait()
	end
end

DoorPad.Touched:connect(Slide)