函数原型：Unit System
function Copy(S: string; Index, Count: Integer): string;
说明：
S : 字符串. Indexd : 从第几位开始拷贝，从1开始. Count : 总共要拷贝几位. 从母字符串拷贝至另一个字符串
返回值：
结果返回新字符串
注：如果Count大于所给字符长度，那多拷贝Index位置以后所有字符