Составить программу обхода шахматным конем шахматной доски по всем клеткам

Uses Crt;
Type mas = Array[1..8,1..8] of Byte;
Var
  m   : mas;
  i,j : Byte;
  n : Byte;
  k : Int64;
 
Procedure ShowMas;
Var ii,jj : Byte;
Begin
  For ii:=1 to 8 do
    For jj:=1 to 8 do
    Begin
      GoToXY(jj*3-2,ii+2);
      If m[ii,jj]<10 then Write(' ');
      Write(m[ii,jj]);
    End;
End;
 
Procedure Horse(t : mas; x,y,k : Byte);
Var tt : mas;
Begin
  tt:=t;
  if k>64 then
  Begin
    m:=t;
    ShowMas;
   { Halt; }
  End else
    if tt[x,y]=0 then
    Begin
      tt[x,y]:=k;
      {---------}If k>=n then Begin n:=k; GoToXY(1,1); Write(n); m:=tt; ShowMas; end;{---------}
      If (x-1>0) and (y+2<9) then Horse(tt,x-1,y+2,k+1);
      If (x-2>0) and (y+1<9) then Horse(tt,x-2,y+1,k+1);
      If (x+1<9) and (y+2<9) then Horse(tt,x+1,y+2,k+1);
      If (x+2<9) and (y+1<9) then Horse(tt,x+2,y+1,k+1);
      If (x+2<9) and (y-1>0) then Horse(tt,x+2,y-1,k+1);
      If (x+1<9) and (y-2>0) then Horse(tt,x+1,y-2,k+1);
      If (x-1>0) and (y-2>0) then Horse(tt,x-1,y-2,k+1);
      If (x-2>0) and (y-1>0) then Horse(tt,x-2,y-1,k+1);
    End;
End;
 
Begin
  ClrScr;
  n:=0; k:=0;
  For i:=1 to 8 do For j:=1 to 8 do m[i,j]:=0;
  Horse(m,1,1,1);
  Readln;
End.