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

for i := 1 to 72 do
begin
  //besetzt-Variablen festlegen
  if i > 56 then
    fields[i].taken := false
  else
    fields[i].taken := true;
  //farbe festlegen
  if i < 41 then
    fields[i].color := white;
  if ((i > 40) and (i < 45)) or ((i > 56) and (i < 61)) then
    fields[i].color := red;
  if ((i > 44) and (i < 49)) or ((i > 60) and (i < 65)) then
    fields[i].color := green;
  if ((i > 48) and (i < 53)) or ((i > 64) and (i < 69)) then
    fields[i].color := yellow;
  if ((i > 52) and (i < 57)) or ((i > 68) and (i < 73)) then
    fields[i].color := blue;
end;