由于程序运行速度快，图形不能够及时显示。
要显示是否删除，可以使用函数grtext来显示进度。
或者绘制一个圆，删除一个对象一次，函数command函数移动这个圆一次，这样会显示删除过程。当然程序结束后，这个临时绘制的对象也删除了。
