恐縮ですがゆうきさんのプログラムを添削させて頂きました。