Как преобразовать слово в символьный массив?, Паскаль Опции

[KerK]

Подскажите пожалуйста, каким макаром из какого-нибудь слова создать отсортированный символьный массив?
Т.е. дано слово, его нужно разложить и запихнуть в символьный массив, а потом отсортировать в обратном алфавитном порядке.

Нашел на форуме:
a:array['A'..'Z'] of чего_то_там;
i:char;
...

for i:='A' to 'Z' do a[i]:=что_то_нужное_мне

Там дальше понятно, как делать перебираем через фор алфавит и сравниваем с нашим массивом и присваеваем.... и т.д.

А как разбить слово на буквенный массив?

[Гость]

Выкладываю решенную задачу, если кому-нибудь понадобится.

program sort;

type
 Dataitem=char;
 DataArray=array[1..100] of char;
var
 massiv:DataArray;
 t,t2:integer;
 slovo:string;

Procedure Bubble(var item:DataArray; count:integer);
var
 i,j:integer;
 x:Dataitem;
begin
 for i:=2 to count do
 begin
  for j:=count downto i do
  if item[j-1]<item[j] then
  begin
   x:=item[j-1];
   item[j-1]:=item[j];
   item[j]:=x;
  end;
 end;
end;

begin
 slovo:='н«ҐЄваЁдЁЄ жЁп';
 for t:=1 to length(slovo) do massiv[t]:=char(slovo[t]);
 Bubble(massiv, t);
 Write(''
 Write('Њ ббЁў а бЇ®«®¦Ґ­­л© ў ®Ўа в­®¬  «д ўЁв­®¬ Ї®ап¤ЄҐ: ');
 for t2:=1 to t do write(massiv[t2]);
 Writeln;
end.