Расставить 10 амазонок на поле 10х10 так, чтобы они не были под ударом друг друга

program Queens;
uses crt;
  const N=10;
  type Index=1..N;
        Rasstanovka=array [Index] of 0..N;
  var X:Rasstanovka;
      Count:word;
 
  function P(var X:Rasstanovka;k,y:Index):boolean;
    var i:Index;
  begin
    i:=1;
    while (i<k)and(y<>X[i])and(abs(k-i)<>abs(y-X[i])) do inc(i);
    P:=i=k
  end;
 
 
  procedure Backtracking(k:Index);
    var i,y,i2:Index;  j:byte;
        a:array [1..10,1..10] of byte;
  begin
    for y:=1 to N do
      if P(X,k,y) then
         begin
           X[k]:=y;
           if k=N then
             begin
               writeln(count+1,' растановка');
               for i:=1 to N do write(X[i]);
               writeln;
                for i:=1 to 10 do
                   for j:=1 to 10 do
                       a[i,j]:=0;
               J:=0;
               for i:=1 to n do BEGIN inc(j); a[x[i],j]:=1; END;
               for i:=1 to 10 do
                   begin
                   for j:=1 to 10 do
                       write(a[i,j]:3);
                   writeln;
                   end;
               writeln('To Enter...');
               readln;
               writeln;
               inc(Count);
               if count=10 then halt;
             end;
           Backtracking(k+1)
         end
 
  end;
begin
clrscr;
  Count:=0;
  writeln('Растановка ',N,' спосабами:');
  Backtracking(1);
end.

  function P(var X:Rasstanovka;k,y:Index):boolean;
    var i:Index;
  begin
    i:=1;
    while (i<k)and(y<>X[i])and(abs(k-i)<>abs(y-X[i]))and(abs(k-i)*abs(y-X[i])<>2) do inc(i);
    P:=i=k
  end;