すみません。要素数２の時並び替えしないバグがありました。４行目を IF I%>0||L%==1 THEN に訂正します。