试写一算法，由长度为n的一维数组a构建一个序列S。

序列的类型定义为：
typedef struct {
ElemType *elem;
int length;
} Sequence;

Status CreateSequence(Sequence &S, int n, ElemType *a) 
/* 由长度为n的一维数组a构建一个序列S，并返回OK。 */
/* 若构建失败，则返回ERROR                       */
{
    int i;
    if(n<=0)
        return ERROR;
    S.elem=(ElemType*)malloc(n*sizeof(ElemType));
    S.length=0;    
    for(i=0;i<n;i++){
        S.elem[i]=a[i];
        S.length++;
    }
    return OK;    
}