皆さんコメントありがとうございます。 皆さんのコメントを参考にプログラムを修正してみます