Pascal：按编号读取输入数字

Question

简单的问题，但奇怪的是我还没有找到任何简单的解决方案： 我想将一个输入“1234”（不带引号）存储到一个数组中，以便每个数字作为整数存储到一个单独的位置（即数组[1]将等于1等）。

顺便说一下（这可能是一些帮助，或者建议使用不同的解决方案），我正在进行一些简单的排列操作（词典排序等），所以我想单独使用这些数字。

谢谢！

Answer 1

Var
s           :String;
myArray : Array[1..20] of Boolean;
code    :integer
Begin
s := "1234";
For i := 1 to length(s) do
 Begin
  Val(s[i], myArray[i], code);
 End;
End.