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

[KerK]

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

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

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

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

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

[volvo]

может что-нибудь изменить, чтобы красиво было?

Так красивее будет, правда?

program sort;

type
 DataItem = Char;
 DataArray = array[1..100] of DataItem;
var
 massiv:^DataArray;
 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 := 'start, finish';

 massiv := @slovo[1];
 Bubble(massiv^, length(slovo));
 Write('sorted word: ');
 writeln(slovo);
end.