Pascal：Const数组Const

Question

我在创建const char的const char数组时遇到'非法表达'错误。

Program Foo; (*excerpt*)
Const
  X : Char = 'X';
  O : Char = 'O';
  P : Array [1..2] of Char = (X,O);
Begin
  (*stuff*)
End.

Answer 1

我是从没有pascal的设备输入的。所以我无法验证它，但这可能有效：

Const 
X = 'x';
O = 'o';
P : array[1..2] of char = (o,x);

Answer 2

你也可以写

Const
 X : Char = 'X';
 O : Char = 'O';
 P : Array [1..2] of Char = ('X', 'O');

达到同样的效果