Решение судоку методом backtracking(метод перебора с возвратом)

program sudoku;
 
 
const datafile='F:\Documents and Settings\Admin\Рабочий стол\SudokuBacktracking\data.txt';
 
type data=integer;
 
type Tmas=array[1..9,1..9] of data;
 
var i,j:data;
    Mas,znach:tmas;
    f:text;
    
function backmove(var a:tmas; var y,x,k:integer):boolean;
         begin
         a[y,x]:=0;
         
         repeat
         dec(x);
         
         if x=0 then begin
                     dec(y);
                     x:=9;
                     end;
 
         if znach[y,x]=0 then begin
                              backmove:=true;
                              k:=a[y,x];
                              a[y,x]:=0;
                              end;
         until backmove=true;
         
         end;
 
function check(var a:tmas; y,x,q:integer):boolean;
         var i1:integer;
         begin
         check:=true;
 
         for i1:=1 to 9 do
             begin
             if x<>i then if q=a[y,i1] then begin
                                            Check:=false;
                                            break;
                                            end;
                                            
             if y<>i1 then if q=a[i1,x] then begin
                                             Check:=false;
                                             break;
                                             end;
             end;
             
         end;
 
procedure main(var a:tmas; y,x:integer);
         var cik:shortint;
             k,q:integer;
         begin
         
         k:=1;
 
         repeat
 
         if a[y,x]=0 then begin
                          cik:=0;
 
                          for q:=k to 9 do
                              if check(a,y,x,q) then begin
                                                     inc(cik);
                                                     a[y,x]:=q;
 
                                                     inc(x);
                                                     if x=10 then begin
                                                                  inc(y);
                                                                  x:=1;
                                                                  end;
                                                     break;
                                                     end;
                                                     
                          if cik=0 then backmove(a,y,x,k);
                          end
                      else begin
                           if x=10 then begin
                                        inc(y);
                                        x:=1;
                                        end;
                           end;
         until y=10;
 
         end;
 
begin
assign(f,datafile);
reset(f);
j:=1; i:=1;
while not eof(f) do
      begin
      while not eoln(f) do
            begin
            read(f,mas[i,j]);
            if mas[i,j]=0 then znach[i,j]:=0
                        else znach[i,j]:=1;
            inc(j);
            end;
      readln(f);
      if j=10 then j:=1;
      if i<=9 then inc(i);
      end;
close(f);
i:=1;
j:=1;
main(mas,i,j);
end.