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

想定义一个一维数组，然后每次显示一次该数组的成员！
各位朋友：
  小弟想定义一个一维数组，然后将以下的字符串赋给该一维数组：
“＋、－、×、／、＆”、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;