1、ImagePath:=[]ImagePath[0]:屏顿幂垂='E:/images1/a000.bmp'ImageP锾攒揉敫ath[1]:='E:/images1/a001.bmp'ImagePath[2]:='E:/images1/a002.bmp'ImagePath[3]:='E:/images1/a003.bmp'ImagePath[4]:='E:/images1/a004.bmp'ImagePath[5]:='E:/images1/a005.bmp'ImagePath[6]:='E:/images1/a006.bmp'ImagePath[7]:='E:/images1/a007.bmp'for i:=0 to 7 by 1 read_image(Image,ImagePath)endfor