[Delphi] Массив типа char

[Рамик]

как задать значения элементов массива... точнее нужно задать в массив алфавит.

a:array[1..33] of char;

[D@rkD@iver]

for c:= ord('А') to ord('Я') do
a[c-ord('А')+1]:= char(c);

вот как-то так