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

procedure ba(i,j: integer);
begin

setztedame(i,j);

ba(i+1,j+1);
  
  if unguelig then
  entfernedame(i,j);
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:

function Collision(x1,y1,x2,y2 : integer) : boolean;
 var dx,dy : integer;
begin
 dx:=x2-x1;
 dy:=y2-y1;

 Result := (dx=0) or (dy=0) or (dx=dy) or (dx=-dy);
end;

type TDamen = array [0..7] of TPoint;

function Valid(x,y : integer; Level : integer; var Damen : TDamen) : boolean;
 var i : integer;
begin
 Result:=True; i:=0;
 while Result and (i<Level) do
 begin
  Result:=Result and (not Collision(x,y,Damen[i].x,Damen[i].y));
  Inc(i);
 end;
end;

function Trace(Level : integer; Start : integer; var Damen : TDamen) : integer;
 var i : integer;
begin
 Result:=0;
 for i:=start to 64-1 do
 begin
  if Valid(i and 7,i shr 3,Level,Damen) then
  begin
   Damen[Level].x:=i and 7;
   Damen[Level].y:=i shr 3;

   if Level<7 then
    Result:=Result+Trace(Level+1,i+1,Damen) else
    begin
     Inc(Result);
     DrawSolution(Damen);
    end;
  end;
 end;
end;