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;