RotateLeft[lst,Flatten[Position[lst,Max[lst]]]]
でどう?