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:

procedure Spielfeld_zufaellig_mit_Zahlen_fuellen (var Spielfeld:Spieloberflaeche);
var Felder_Anzahl,Zufallszahl1,Zufallszahl2:byte;
    k,i:integer;
    hilfe:boolean;

begin
Spielfeld_initialisieren(Spielfeld);
Felder_Anzahl:=4;
k:=0;
Zufallszahl1:=0;
Zufallszahl2:=0;
hilfe:=Spielfeld[Zufallszahl1,Zufallszahl2].belegt;

while k<>2 do
begin
 for i:=1 to 2 do
   begin
   randomize;
     repeat
       Zufallszahl1:=random(maxzeile);
       Zufallszahl2:=random(maxspalte);
     until not hilfe;
      Spielfeld[Zufallszahl1,Zufallszahl2].inhalt:=inttostr(i);
      Spielfeld[Zufallszahl1,Zufallszahl2].belegt:=true;
   end;
 inc(k);
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:

procedure TForm1.BitBtn1Click(Sender: TObject);
var Array2x2 : Array[1..2,1..2] of Integer;
  k,i,s,Anz1,Anz2 : Integer;

begin
  Anz1:= 0;
   Anz2:= 0;
  Randomize;
  for i:= 1 to 2 do
  begin
     for k:= 1 to 2 do
      begin
        s := Random(2)+1;
         if s = 1 then
         begin
           if Anz1 = 2 then
            begin
              s := 2;
               inc(Anz2);
            end
            else
              inc(Anz1);
         end
         else//s = 2
         begin
            if Anz2 = 2 then
            begin
              s := 1;
               inc(Anz1);
            end
            else
              inc(Anz2);
         end;
         Array2x2[i,k]:=s;
      end;
  end;
end;