procedure recurse(var m:mass;i,j:integer);

Type matrix = array[1 .. 100] of integer;
var mx: matrix;

procedure p1(var x: matrix);
 begin end;
procedure p2(x: matrix);
 begin end;

begin
 p1(mx); { по ссылке }
 p2(mx); { по значению }
end.

program ChessHorse;
uses crt;
label 1;
type
mass=array[1..15,1..15] of integer;
line=array[1..100] of integer;


var i,j,n,k:integer;

  matrix:mass;

  procedure Readlines(var men:mass; n:integer);
  var i,j:integer;
  begin
  for i:=1 to n do
   for j:=1 to n do
     men[i,j]:=0;
     end;



     procedure Writelines(m:mass; n:integer);
     var i,j:integer;
     begin
     for i:=1 to (n+1) do
      begin
        for j:=1 to (n+1) do
                             if (i=1) and (j=1) then write('   ') else
                             if j=1 then write((i-1):2,'*') else
                             if i=1 then write((j-1):2) else
           write(m[i-1,j-1]:2);
             writeln
               end
               end;

               procedure recurse(mo:mass;i,j,turn:integer);

               begin

               if (mo[i, j] = 3) or (i>N) or (j>N) or (i<1) or (j<1) or (turn>=k) then exit
               else
               if mo[i,j]=2 then begin
                                writeln('gotcha');
                                writelines(mo,n);
                                k:=turn;
                                readln;
                                exit
                                end;

                 begin
                   if mo[i,j]<>1 then mo[i, j] := 3;
                   recurse(mo, i+2, j+1,turn+1);
                   recurse(mo, i+2, j-1,turn+1);
                   recurse(mo, i+1, j+2,turn+1);
                   recurse(mo, i+1, j-2,turn+1);
                   recurse(mo, i-2, j+1,turn+1);
                   recurse(mo, i-2, j-1,turn+1);
                   recurse(mo, i-1, j+2,turn+1);
                   recurse(mo, i-1, j-2,turn+1);
                  end;
                       end;



                                                procedure readpoint(var m:mass;point:integer);
                                                var i,j,a:integer;
                                                begin
                                                writeln('input entry point ', point,', use "xx" format:');
                                                readln(a);
                                                i:=a div 10;
                                                j:=a mod 10;
                                                m[i,j]:=point;
                                                if point=1 then begin
                                                                clrscr;
                                                                                recurse(matrix,i,j,0)
                                                                                                end
                                                                                                end;

                                   BEGIN
                                   1: clrscr;
                                   writeln('please input n<=15');
                                   readln(n);
                                   k:=n;
                                   if (n>0) and (n<=15) then
                                   readlines(matrix,n)
                                   else goto 1;
                                   writelines(matrix,n);
                                   readpoint(matrix,2);
                                   readpoint(matrix,1);
                                   writeln('Done!');
                                   readln
                                   END
                                   .