Перемешивание алфавита

[novicepro]

Доброго времени суток! заранее извиняюсь, возможно данный вопрос ранее уже был. как перемешать одномерный массив чисел понятно, но у меня такой: как перемешать массив, заполненный английским алфавитом?

[novicepro]

или русским алфавитом

[northener]

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

[BDA]

А что Вас смущает, как числа перемешиваете, так и буквы перемешайте.

[Человек_Борща]

так же как и массив чисел. От того что массив не числовой а буквенный, не меняется тот факт, что позиции элементов массивов все так же числа.

А шуфель будет как-то так:

var
  mass:array['a'..'z'] of char;
  i,j,n,k:Integer;

procedure Swap(a,b:Char);
var
 c:char;
begin
 c:=a;
 b:=a;
 a:=c;
end;

begin
  n:=Length(mass); //Узнаем длинну массива
  for k:=1 to n do //Цикл по всем элементам. К.О. здесь
  begin
  Randomize;
  i:=RandomRange(1,n); //Выбираем случайный элемент А
  repeat
    Randomize;
    j:=RandomRange(1,n); //Выбираем случайный элемент Б
  until (j <> i);  //Проверяем, что эл. Б != эл. А
  Swap(mass[i],mass[j]);  //Меняем А и Б местами. 
  end;
end;

[novicepro]

меня смущает тот факт, что делфи выдает ошибку о несовпадении типов char и integer при попытке поменять местами элементы массива.
не зависимо от того, использую ли процедуры или нет.

Сообщение от Человек_Борща

  Swap(mass[i],mass[j]);  //Меняем А и Б местами.

[Error] Unit1.pas(79): Incompatible types: 'Char' and 'Integer'

[Аватар]

var
  mass:array of char;
  i,j:Integer;
  c:char;
...
  SetLength(mass,Ord('z')-Ord('a')+1);
  for i:=0 to High(mass) do mass[i]:=Chr(Ord('a')+i);
  Randomize;
  for i:=0 to High(mass) do begin
    repeat
      j:=Random(High(mass)+1);
    until (j <> i);
    c:=mass[i];
    mass[i]:=mass[j];
    mass[j]:=c;
  end;

[novicepro]

Спасибо огромное! заработало