for i := 0 to 29 by 1
mmm:='C:/Users/Administrator/Desktop/out_003/orig/orig_'+i$'03'+'.bmp'
read_image (Image,mmm)
write_image (Image, 'jpg', 0, 'C:/Users/Administrator/Desktop/out_003/orig/orig_'+i$'03')
endfor
for i := 0 to 29 by 1
mmm:='C:/Users/Administrator/Desktop/out_003/orig/orig_'+i$'03'+'.bmp'
read_image (Image,mmm)
write_image (Image, 'jpg', 0, 'C:/Users/Administrator/Desktop/out_003/orig/orig_'+i$'03')
endfor