Дан массив, в котором хранятся числа записанные словами. Числа хранятся последовательно, по возрастанию.
Написать программу для перемешивания массива т.е. этих чисел.

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.