楼主的程序没能实现预期，是因为for语句一直在执行，把for嵌套在一个判断if中即可以解决上面的问题，我给个提示，楼主程序要实现gid[n]-->gid[n-1]，具体需要传递几次由外部count决定，本质上还是块传送，if条件为，目标块尾部元素值 = 源块尾部元素值，当这个条件满足时，不需要执行for中的传送语句，当条件不满足时，则执行for中的传递语句。

例如需要将gid[4]...gid[9]共5个结构元素传送到gid[3]...gid[8]，那么结束for循环的判断条件可以为，gid[8] = gid[9](传送的最后一个元素），这样就可以了。

if gid[8] <> gid[9] then//二者不相等，则表示没有传送完

    for

           传送操作；

    end_for

end_if