这里人气旺，也许会得到解决！

有一个CHAR型数组
CHARARRAY[0..16]OF CHAR=(#$30,#$60,#$67,#$98,#$90,#$30,#$60,#$67,#$98,#$90#$30,#$60,#$67,#$98,#$90,#$88)
我如何通过一个字符串Str:=‘30606798903060679890306067989088’将对应的值赋给对应数组下标的数组中，
我想要的是通过截取字符串来赋值 如通过字符串Str:='30606798903060679890306067989088’，
CHARARRAY[0]：=#$30;
CHARARRAY[1]：=#$60;
CHARARRAY[2]：=#$67;
……
……
CHARARRAY[2]：=#$90;
CHARARRAY[16]：=#$88;（编译可以通过）
因为CHARARRAY 为CHAR 所以不能将语句写为CHARARRAY[0]:=#$+COPY(STR,1,2)
请问有什么好的方法。