这样作，看行不行
首先申请一个数组
var
aaa : Array [1..10] of integer;
temp,J : Integer;
I : Integer;
K,KK : integer;
begin
for I := 1 to 10 do
aaa := I;
//然后洗牌：
Randomize;
for kk := 1 to 100 do//kk循环越多，牌洗得越细
for k := 1 to 10 do
begin
J := random(10)+1;
temp := aaa[k];
aaa[k] := aaa[J];
aaa[J] := temp;
end;
end;
