Расставить на шахматной доске 8 ферзей так, чтобы не один не попадал под удар. Вывести все комбинации

program ferz;
type desk = array [1..8,1..8] of 0..2;
{0-пусто; 1-поле которое бьёт ферзь; 2-ферзь}
var
cur_desk : desk;   {текущий статус доски}
now_f    : byte;   {какой ферьз ставится в данный момент}
count    : byte;   {количество на доске ферзей}
variants : word;   {количество возможных вариантов}
fi,fj    : array[1..8] of byte; {координаты ферзей}
i,j      : byte;   {для расстановки первого ферзя}
iii,jjj  : byte; 
ferzes   : desk;
 
{заполнить "1" столбик и строку с номером позиции ферзя ki, kj}
 
procedure st(ki,kj:byte);
var i:integer;
begin
for i:=1 to 8 do
 begin
  if cur_desk[ki,i] <> 2 then
   cur_desk[ki,i] := 1;
  if cur_desk[i,kj] <> 2 then
   cur_desk[i,kj] := 1;
 end
end;
 
 
{заполнить "1" диагонали, которые бъёт ферзь с номером позиции ki, kj}
procedure diag(ki,kj:byte);
var i,j:integer;
begin
for i:=1 to 8 do
  for j:=1 to 8 do
   begin
    if abs(i-ki)=abs(j-kj) then
     if cur_desk[i,j]<>2 then cur_desk[i,j]:=1;
   end
end;
 
{проверяет бьют ли все 5 ферзей всё поле}
function filled : boolean;
var
i, j : integer;
fl   : boolean;
begin
fl:=true;
for i:=1 to 8 do
 for j:=1 to 8 do
  if cur_desk[i,j] = 0 then fl := false;
filled := fl
end;
 
{выводит массив ferzes, то есть правильную расстановку}
procedure print_ar;
var
i,j:integer;
begin
for i:=1 to 8 do
 begin
  for j:=1 to 8 do
   write(ferzes[i,j],' ');
  writeln
 end;
readln;
for i:=1 to 8 do for j:=1 to 8 do ferzes[i,j]:=0;
end;
 
 
{рекурсивная процедура которая расставляет ферзей
after_i,after_j переменные, которые служат для исключения повторений,
то есть поиск места для след. ферзя идёт по значениям i, j которые
идут после места только что поставленного ферзя}
 
procedure put(after_i,after_j:byte);
var
old_desk : desk;  {в ней хранится значения старой доски, чтоб при возврате из рекурсии}
                  {не терялись предыдущие значения}
iii,jjj  : byte;  
i,j      : integer;
tempk    : byte;
begin
old_desk := cur_desk;
for i:=after_i to 8 do
begin
if i=after_i then tempk:=after_j
else tempk:=1; {нужно, так как after_j исп-зя один раз когда i=after_i,}
               {ведь дальше j идёт с 1}
 for j:=tempk to 8 do
  begin
   {это условие когда не могут ббить лруг друга, то есть ферзь ставится на место,}
   {где никто его не "обидит" => если нужна возможность бить друг друга}
   {делаем условие cur_desk[i,j] <> 2, тогда будет ставится в любое место, где не}
   {стоит другой ферзь}
   if cur_desk[i,j] = 0  then
    begin
     inc(now_f);    {now_f = now ferz, то есть какого ферзя ставим}
     inc(count);    {кол-во ферзей}
     fi[now_f]:=i;  {запоминаем i,j позицию ферзя с номером now_f}
     fj[now_f]:=j;
     cur_desk[fi[now_f],fj[now_f]]:=2;  {ставим его на доску}
 
     st(fi[now_f],fj[now_f]);    {2 процедуры, описанные выше}
     diag(fi[now_f],fj[now_f]);
 
     if count <> 8 then          {если не все ферзи поставлены}
      begin
       put(i,j);
       {восстанавливает значение, когда один из проходов закончен}
       {при возврате из рекурсии}
       cur_desk := old_desk;
       fi[now_f]:=0;
       fj[now_f]:=0;
       dec(count);
       dec(now_f)
      end
     else
      begin
       {ferzes - массив, которых хранит свеженайденный расклад событий на доске}
       {использунтся чтобы выводить варианты}
       for iii:=1 to 8 do for jjj:=1 to 8 do ferzes[i,j]:=0;
       ferzes[fi[1],fj[1]] := 1;
       ferzes[fi[2],fj[2]] := 1;
       ferzes[fi[3],fj[3]] := 1;
       ferzes[fi[4],fj[4]] := 1;
       ferzes[fi[5],fj[5]] := 1;
       ferzes[fi[6],fj[6]] := 1;       
       ferzes[fi[7],fj[7]] := 1;       
       ferzes[fi[8],fj[8]] := 1;       
       {ставим 5-го ферзя и убираем его для дальнейшего его расставления,}
       {или чтобы не была мусорна 5 переменная, когда возвращаемся на расстановку}
       {4 ферзя(когда для 5 ферзя i=j=8)}
       fi[now_f]:=0;
       fj[now_f]:=0;
       dec(count);
       dec(now_f);
             if filled then
              begin
               inc(variants);
               {нашли вариант, и вывели массив если надо}
               print_ar;
               cur_desk:=old_desk;
              end
             else
              begin
               cur_desk:=old_desk;
              end
      end
 
    end
  end
end
end;
 
begin
{цикл по всей доске для выбора куда поставить самого 1 ферзя}
for i:=1 to 8 do
 for j:=1 to 8 do
  begin
   {показываю инициализацию доски для 1 ферзя}
   count := 0;
   now_f := 0;
 
       for iii:=1 to 8 do for jjj:=1 to 8 do cur_desk[i,j]:=0;
   fi[1]:=i;
   fj[1]:=j;
 
   cur_desk[fi[1],fj[1]]:=2;
   st(fi[1],fj[1]);
   diag(fi[1],fj[1]);
 
   inc(count);
   inc(now_f);
 
   put(i,j);
  end;
 write('Число вариантов: ');
 writeln(variants);
 readln
end.