Найти такую расстановку 12 коней на шахматной доске, при которой каждое поле будет находиться под ударом

{ Требуется найти такую расстановку 12 коней на шахматной доске,
  при которой каждое поле будет находиться под ударом одного из них. }
 
Uses Crt;
Type tm = array [1..8,1..8] of Byte;
Var Chess : tm;
 
Procedure ShowChess(mm : tm);
Var i,j : Byte;
Begin
  For i:=1 to 8 do
    For j:=1 to 8 do
    Begin
      GoToXY(j*2,i);
      Write(mm[i,j]);
    end;
end;
 
Procedure Zero(Var mm : tm);
Var
  a,b : Byte;
Begin
  For a:=1 to 8 do
   For b:=1 to 8 do mm[a,b]:=0;
end;
 
Function Check(cm : tm) : Boolean;
Var
  a,b : Byte;
Begin
  For a:=1 to 8 do
   For b:=1 to 8 do
    If cm[a,b]=0 then
    Begin
      Check:=False;
      Exit;
    end;
  Check:=True;
end;
 
Procedure SetHorse(Var sm : tm; a,b : Integer);
Begin
  If (a-2>0) and (b+1<9) then sm[a-2,b+1]:=1;
  If (a-1>0) and (b+2<9) then sm[a-1,b+2]:=1;
  If (a+1<9) and (b+2<9) then sm[a+1,b+2]:=1;
  If (a+2<9) and (b+1<9) then sm[a+2,b+1]:=1;
  If (a+2<9) and (b-1>0) then sm[a+2,b-1]:=1;
  If (a+1<9) and (b-2>0) then sm[a+1,b-2]:=1;
  If (a-1>0) and (b-2>0) then sm[a-1,b-2]:=1;
  If (a-2>0) and (b-2>0) then sm[a-2,b-2]:=1;
end;
 
Procedure Search12Horse(m : tm; Var h : tm; n : Byte);
Var
  k,l   : Byte;
  m1,m2 : tm;
Begin
  If n>0 then
  Begin
    ShowChess(h);
    m2:=h;
    For k:=1 to 8 do
     For l:=1 to 8 do
       If h[k,l]=1 then Continue
         else
         Begin
           m1:=m;
           SetHorse(m1,k,l);
           m2[k,l]:=1;
           Search12Horse(m1,m2,n-1);
           If Check(m) then
           Begin
             h:=m2;
             Exit;
           end;
           m2[k,l]:=0;
         end;
  end;
end;
 
Begin
  ClrScr;
  Zero(Chess);
  Search12Horse(Chess,Chess,12);
  ShowChess(Chess);
end.