数据类型转换问题？？？？来着有分

Question

var
  a,b:array[0..9] of byte;
  s:string;
  i:integer;
begin
  for i:=0 to 9 do
    a[i]:=i;
  for i:=0 to 9 do
    s:=s+Char(a[i]);  for i:=0 to length(s) do
    b[i]:=Ord(s[i+1]);
end;存数组有困难，分开存吧，或者加上间隔符存成image或者text

Answer 1

1、var
  a,b:array[0..9] of byte;
  s:string;
  i:integer;
begin
  for i:=0 to 9 do
    a[i]:=i;
  for i:=0 to 9 do
    s:=s+a[i];
////////////////
  for i:= 0 to 9 do
    b[i]:=s[i+1];
////////////////
end;2、应该用字符类型字段