Расставить на доске 8 ферзей, чтобы они не били друг друга

program ferz;
uses crt,ABCObjects,ABCChessObjects,Events,Utils;
var s,i,j:integer;
a:array[1..8] of boolean;
b:array[2..16] of boolean;
                      
c:array[-7..7] of boolean;
x:array[1..8]of integer;
d:array[1..8,1..8]of integer;
g:array[1..8,1..8]of integer;
procedure vivod; 
var i,j,k:integer; br: ChessBoardABC;ChessFigures: ChessSetABC;wq: ChessFigureABC;
begin
br:=CreateChessBoardABC(20,20,8,8,50,clwhite);ChessFigures:=ChessSetABC.Create(PascalABCPath+'Media\Images\Chess.wmf',45,br);
s:=s+1;
for i:=1 to 8 do
for j:=1 to 8 do
d[i,j]:=0;
for k:=1 to 8 do
d[8-x[k]+1,k]:=1;
for i:=1 to 8 do
 begin
  for j:=1 to 8 do
  {write(d[i,j]:2);
  writeln;}
if d[i,j]=1 then begin wq:=ChessFigures.CreateWhiteQueen(i,j); end;
 end;
  readln;
end;
 
procedure trq(i:integer);
var j:integer;
begin
 
for j:=1 to 8 do
if a[j]and b[i+j]and c[i-j] then
begin
x[i]:=j;
a[j]:=false;b[i+j]:=false;c[i-j]:=false;
if i<8 then trq(i+1) else vivod; 
a[j]:=true;b[i+j]:=true;c[i-j]:=true;
end;
end;
Begin
clrscr;
for i:=1 to 8 do a[i]:=true;
for i:=2 to 16 do b[i]:=true;
for i:=-7 to 7 do c[i]:=true;
s:=0;
trq(1);
end.