ソートプログラムを修正。