Выведите количество вариантов расстановки n-1 ладьи на шахматной доске

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
TYPE
mas=array [1..15,1..15] of integer;
VAR z,y:integer;
a:mas; d:boolean; t:text;
i,j,n:integer;
k:longint;
PROCEDURE Fill_F(x,y:integer; var a:mas; var d:boolean);
var
i, j:integer;
begin
d:=false;
for i:= 1 to n do
begin
if a[x,i]=3 then
d:=true;
a[x,i]:=1;
if a[i,y]=3 then
d:=true; 
a[i,y]:=1; 
end;
i:=x-1; 
while (i<>0) and (j<>0) do
begin
if a[i,j]=3 then
d:=true;
a[i,j]:=1;
dec(i);
dec(j);
end;
i:=x+1;
j:=y+1;
while (i<>n+1) and (j<>n+1) do
begin
if a[i,j]=3 then
d:=true;
a[i,j]:=1; 
inc(i);
inc(j);
end;
i:=x-1;
j:=y+1;
while (i<>0) and (j<>n+1) do
begin
if a[i,j]=3 then
d:=true;
a[i,j]:=1; 
dec(i);
inc(j);
end;
i:=x+1; 
j:=y-1;
while (i<>n+1) and (j<>0) do
begin
if a[i,j]=3 then
d:=true;
a[i,j]:=1; 
inc(i);
dec(j);
end;
a[x,y]:=2; 
end;
 
PROCEDURE Fill_L(x,y:integer; var a:mas);
var
i, j:integer;
begin
for i:= 1 to n do
begin
a[x,i]:=1; 
a[i,y]:=1; 
end;
a[x,y]:=3; 
end;
 
PROCEDURE Set_F(x:integer; a:mas);
 
var
i,j:integer;
b:mas;
begin
if x>=n+1 then 
begin
for i:=1 to n do 
begin
for j:=1 to n do
write(t,a[i,j]);
writeln(t);
end;
writeln (t);
inc(k) 
end
else 
for i:= 1 to n do 
if a[x,i]=0 then 
begin
b:=a; 
Fill_F(x,i,b,d);
if d=true then
continue;
if x+1=z then 
Set_F(x+2,b)
else
Set_F(x+1,b); 
end;
end;
 
BEGIN
assign (t, '1.txt');
reset (t);
writeln('vvedite rzmer doski');
readln(n);
close (t); 
k:=0; 
for i:= 1 to n do
for J:= 1 to n do
a[i,j]:=0;
assign (t, '2.txt');
rewrite (t);
fill_l(z,y,a);
if z=1 then 
Set_F(2,a)
else
set_f(1,a); 
writeln(k);
close (t); 
readln;
END.