A Novel Momentum-Preserving Energy-Decaying Algorithm for Finite Element Multibody Procedures