1:
2:
3:
4:
5:
6:
7:

  type 
    map = record
      tex,tex2,typ:Integer;
    end;

  var
     map = array of array of TMap;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

type  
    map = record 
      tex,tex2,typ:Integer; 
    end; 
    TMapArray = array of array of TMap;

  var 
     map : TMapArray;

function TForm1.FillArray(var MA:TMapArray):integer;
var
  IntArr:array of integer;
  i,M,Ind,J:integer;
begin
   SetLength(IntArr,Length(Ma)*Length(MA[1]));
   for i:=0 to High(IntArr) do
   begin
     IntArr[i]:=i div 2;
   end;
   Randomize;
   for i:=0 to High(IntArr) do begin
     Ind:=Random(Length(IntArr));
     M:=IntArr[i];
     IntArr[i]:=IntArr[Ind];
     IntArr[Ind]:=M;
   end;
   ind:=0;
   for i:=0 to High(Ma) do
     for j:=0 to High(MA[1]) do
     begin
       MA[i,j].tex2:=IntArr[Ind];
       inc(ind);
     end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

type
  Tmap = record
    tex,tex2,typ:Integer;
  end;
  TMapArray = array of array of TMap;

....

var
  Form1: TForm1;
  map : TMapArray;

procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
  SetLength(map,4);
  for i:=0 to 3 do
    SetLength(map[i],5);
  FillArray(map);
  for i:=0 to 3 do
    for j:=0 to 4 do
      StringGrid1.Cells[i,j]:=IntToStr(map[i,j].tex2);
end;

function TForm1.FillArray(var MA:TMapArray):integer;
var
  IntArr:array of integer;
  i,M,Ind,J:integer;
begin
   SetLength(IntArr,Length(Ma)*Length(MA[1]));
   for i:=0 to High(IntArr) do
   begin
     IntArr[i]:=i div 2;
   end;
   Randomize;
   for i:=0 to High(IntArr) do begin
     Ind:=Random(Length(IntArr));
     M:=IntArr[i];
     IntArr[i]:=IntArr[Ind];
     IntArr[Ind]:=M;
   end;
   ind:=0;
   for i:=0 to High(Ma) do
     for j:=0 to High(MA[1]) do
     begin
       MA[i,j].tex2:=IntArr[Ind];
       inc(ind);
     end;
end;                    

1:

Hmm ich dachte eigentlich das du ein Array[x,y] meinst, d.h. zur bestimmung der Karten. Hab ich wohl falsch verstanden                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure FillArray;
var 
  IntArr:array of integer; 
  x,i,M,Ind,y:integer; 
begin
  SetLength( IntArr,(MapX+1)*(MapY+1));
  for i:=0 to High(IntArr)+1 do begin
    IntArr[i]:=i div 2;
  end;

  Randomize;
  for i:=0 to High(IntArr) do begin
    Ind:=Random( (MapX+1)*(MapY+1));
    M:=IntArr[i];
    IntArr[i]:=IntArr[Ind];
    IntArr[Ind]:=M;
  end;

  ind:=0;
  for x:=0 to MapX do begin
    for y:=0 to MapY do begin
      Map[x,y].Typ2:=IntArr[Ind]+1;
      inc(ind);
    end;
  end;
end;                    

1:
2:
3:

  for i:=0 to High(IntArr)+1 do begin 
    IntArr[i]:=i div 2; 
  end;                    

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

var IndList:TStringlist;
...
IndList:=TStringlist.Create;
for i:=1 to 15 do
  IndList.Add(IntToStr(i));
for i:=1 to 15-8 do
  IndList.Delete(Random(IndList.Count));
SetLength( IntArr,16); 
for i:=0 to 7 do begin 
  IntArr[i*2]:=StrToInt(IndList.Strings[i]);
  IntArr[i*2+1]:=StrToInt(IndList.Strings[i]);
end;