1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button2Click(Sender: TObject);
procedure exchange(var a,b:integer);
var c: integer;
begin
  c:=a;
  a:=b;
  b:=c;
end;
var ma: array[1..6] of integer;
    i:integer;
begin
   for i := 1 to 6 do ma[i] := i;
   for i := 1 to 36 do exchange(ma[random(6)+1],ma[random(6)+1]);
   for i := 1 to 6 do memo1.Lines.add(inttostr(ma[i]));
end;					

1:

for i:=1 to 6 do exchange(ma[i],ma[random(6)+1]