検索処理をサブルーチンに括り出した。