VAR
d:array[1..6] of string; {массив для чисел, записанных словами}
tmp: string; {временное хранение числа из массива}
i: integer; {для цикла}
a: integer;
BEGIN
{загрузка массива данными}
d[1]:='Один';
d[2]:='Два';
d[3]:='Три';
d[4]:='Четыре';
d[5]:='Пять';
d[6]:='Шесть';
{перемешивание массива}
randomize;
for i:=1 to 6 do
begin
tmp:=d[i];
a:=random(6)+1;
d[i]:=d[a];
d[a]:=tmp;
end;
{вывод массива}
for i:=1 to 6 do writeln('d[' , i , ']=' , d[i]);
readln;
END.
Вот простой способ перемешивания массива. Массив может быть любого типа, переменная tmp — должна быть того же типа что и массив.