Coding MRain , Beta!

const	sort:array[1..9]of longint=(1,1,1,2,2,2,3,3,3);
var	map:array[1..9,1..9]of longint;
	visited:array[1..9,1..9]of boolean;
	used1,used2:array[1..9,1..9]of boolean;
	usedp:array[1..3,1..3,1..9]of boolean;
procedure init;
var	i,j:longint;
begin
	fillchar(map,sizeof(map),0);
	fillchar(visited,sizeof(visited),0);
	fillchar(used1,sizeof(used1),0);
	fillchar(used2,sizeof(used2),0);
	fillchar(usedp,sizeof(usedp),0);
	for i:=1 to 9 do
	begin
		for j:=1 to 9 do
		begin
			read(map[i,j]);
			if map[i,j]>0 then
			begin
				visited[i,j]:=true;
				used1[i,map[i,j]]:=true;
				used2[j,map[i,j]]:=true;
				usedp[sort[i],sort[j],map[i,j]]:=true;
			end;
		end;
		readln;
	end;
end;
procedure print;
var	i,j:longint;
begin
	for i:=1 to 9 do
	begin
		for j:=1 to 9 do
			write(map[i,j],' ');
		writeln;
	end;
	writeln;
end;
procedure dfs(x,y:longint);
var	i:longint;
begin
	if visited[x,y] then
	begin
		if (x=9) and (y=9) then
			print;
		if y=9 then dfs(x+1,1)
		else dfs(x,y+1);
		exit;
	end;
	for i:=1 to 9 do
	begin
		if used1[x,i] or used2[y,i] or usedp[sort[x],sort[y],i] then continue;
		map[x,y]:=i;
		used1[x,i]:=true;
		used2[y,i]:=true;
		usedp[sort[x],sort[y],i]:=true;
		if (x=9)and(y=9) then
			print;
		if y=9 then dfs(x+1,1)
		else dfs(x,y+1);
		map[x,y]:=0;
		used1[x,i]:=false;
		used2[y,i]:=false;
		usedp[sort[x],sort[y],i]:=false;
	end;
end;
begin
	assign(input,'data.txt');
	reset(input);
	assign(output,'result.txt');
	rewrite(output);
	init;
	dfs(1,1);
	close(input);
	close(output);
end.