想定义一个一维数组，然后每次显示一次该数组的成员！该如何解决

想定义一个一维数组，然后每次显示一次该数组的成员！
各位朋友：
  小弟想定义一个一维数组，然后将以下的字符串赋给该一维数组：
“＋、－、×、／、＆”、A至Z 26个大小写字母（总共42个），即“A”、“a”.......

然后想每次：showmessage('一维数组里的一个元素直至结束')


请问该怎样写，请各位朋友赐教，谢谢！！！

[解决办法]
ss:array[0..41] of char
[解决办法]
const ss:array[0..41] of char=('a','A'........................);
[解决办法]

Delphi(Pascal) code

Const  MyArray:Array[0..41] of Char=('+','-",'X','&','A'......);procedure ShowArray;var i:integer;begin for i:=low(MyArray) to High(MyArray) do  ShowMessage(MyArray[i]);end;