字符串赋值给byte数组如何操作的

字符串赋值给byte数组怎么操作的
有个字符串
s:string;
S：=‘abcd’;
p：array[0..63] of byte;

我想要赋值给 p[8],p[9],p[10],p[11] 怎么操作呢?

------解决方案--------------------
p[8] := Ord(s[1]);
p[9] := Ord(s[2]);
p[10] := Ord(s[3]);
p[11] := Ord(s[4]);
或者
move(s[1], p[8], 4);
------解决方案--------------------

探讨
p[8] := Ord(s[1]);
p[9] := Ord(s[2]);
p[10] := Ord(s[3]);
p[11] := Ord(s[4]);
或者
move(s[1], p[8], 4);

------解决方案--------------------
p[8] := Ord(s[1]);
p[9] := Ord(s[2]);
p[10] := Ord(s[3]);
p[11] := Ord(s[4]);