Lỗi thuật toán quay lui sắp xếp quân hậu?

Code e viết như sau ạ:

program QUANHAU;
uses crt;
var a: array[0..8,0..8] of integer;
	d,n: integer;

procedure Try(i: integer);
var p,q,j,k: integer;
begin
	for p:=1 to 8 do
		for q:=1 to 8 do
		begin
			(* Kiem tra hang ngang va cot doc, neu da co quan hau thi bo qua vi tri nay *)
			j:=1;
			while (j<=8) do
			begin
			 	if (a[p,j]=1) or (a[j,q]=1) then break;
			 	inc(j);
			end;
			if j<9 then continue;

			(* Kiem tra 2 duong cheo, neu da co quan hau thi bo qua vi tri nay *)
			j:=-7;
			while (j<=7) do
			begin
				if (p-j>0) and (p-j<9) and (q-j>0) and (q-j<9) then
					if (a[p-j,q-j]=1) then break;
			 	if (p+j>0) and (p+j<9) and (q-j>0) and (q-j<9) then
			 		if (a[p+j,q-j]=1) then break;
			 	inc(j);
			end;
			if j<8 then continue;

			(* Neu vi tri (p,q) hien tai co the dat quan hau *)

			(* Neu da du quan hau thi in ra cac vi tri *)
			if i=n then
			begin
				inc(d);
				for j:=1 to 8 do
					for k:=1 to 8 do
						if a[j,k]=1 then write('(',j,',',k,') ');
				writeln('(',p,',',q,')');
			end
			(* Neu chua du thi tim vi tri cua quan hau tiep theo *)
			else
			begin
				a[p,q]:=1; (* Danh dau vi tri da duoc dat quan hau *)
				Try(i+1);
				a[p,q]:=0; (* Bo danh dau vi tri nay *)
			end;
		end;
end;

begin
	clrscr;
	fillchar(a,sizeof(a),0);
	write('n = '); readln(n);
	d:=0;
	Try(1);
	writeln('Co ',d,' cach sap xep!');
end.

E không hiểu sao nó ra rất nhiều kết quả / ra sai ạ.
Anh chị nào nhìn ra thì khai sáng cho em với ạ.
E cảm ơn…