[The Shadow]

Наверно имелось в виду перемешать массив

Код:

var
i, tmp, j, z: Integer;
...
for i:=0 to Length(Mas) - 1 do
begin
Randomize;
j:=Random(Length(Mas));
z:=Random(Length(Mas));
tmp:=Mas[z];
Mas[z]:=Mas[j];
Mas[j]:=tmp;
end;