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

[KerK]

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

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

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

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

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

[volvo]

Слово задано в виде строки (String)? Тогда оно уже в виде "буквенного" массива, ты же можешь к каждому символу строки обратиться отдельно...

[Гость]

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

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.

[KerK]

Прошу у знающих, совета, ... может что-нибудь изменить, чтобы красиво было?

[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.

[KerK]

Может и так... Спасибо!