数独问题 pascal代码

这是我的程序代码，不知有什么问题，请高手指教
var c,i,j:longint;
ha,hb:array [1..9,1..9] of boolean;
hc:array [1..3,1..3,1..9] of boolean;
s:array [1..10,1..10] of longint;
a:char;
procedure print;
var i,j:longint;
begin
for i:=1 to 9 do
begin
for j:=1 to 9 do
write(s[i,j]);
writeln;
end;
close(output);
halt;
end;
procedure try(dep1,dep2:longint);
var i,dep3,dep4:longint;
begin
if dep1>9
then print
else for i:=1 to 9 do
begin
if ha[dep1,i] and hb[dep2,i] and hc[(dep1-1) div 3+1,(dep2-1) div 3+1,i]
then
begin
s[dep1,dep2]:=i;
ha[dep1,i]:=false;
hb[dep2,i]:=false;
hc[(dep1-1) div 3+1,(dep2-1) div 3+1,i]:=false;
dep3:=dep2;
dep4:=dep1;
repeat
i

pascal回文数问题 数独问题 数独的问题 suduku(数独)问题 求助 独数问题 如何用PASCAL编写数独程序 SUDOKU Free Pascal求数问题 用pascal编程 水仙花数问题 !!!!!!数独 ！！！！！数独