ما الخطا في هذا الكود

[mohamed49]

هل يمكن عمل لوب على السترنغ الموجود ووضعه في array بدون استخدام move يصبح تقريبا على الشكل التالي
c:char;
for c in mystring do
begin
myaray[c]:=mystring[c];
end;