byte类 数组的复制有关问题，

byte类 数组的复制问题，，，
定义两个数组：
a1:array[0..8191] of byte;
a2:array[0..8191] of byte;



如何将a1[3]至a1[100]复制给 a2[0]....a2[98] ?!!!



[解决办法]
move(a2[0],a1[3],99);
[解决办法]
Move(a1[3], a2[0], Count);