Найдите ошибку в программе осуществляющая обход в глубину.

uses crt;
const n=4;{кол-во вершин}
type Llist=^list;
     List=record
          n:integer;{номер инцедентной вершины}
          next:Llist; {ссылка на следующую инцедентную вершину}
     end;
     Mlist=^Plist;
     Plist= record
            v:integer;{вершина}
            listinc:llist;{список инцедентных вершин}
            next:Mlist;{сылка на следующую вершину}
     end;
     Olist=^Tlist;
     Tlist=record
       inf:integer;
       next:olist;
     end;
 
var graf:Mlist;obhod:olist;i:integer;nov: array [1..n] of boolean;
 
procedure creategraf;
var k,r,i:integer;f:text;m:string;tmp:mlist;
begin
  assign(f,'spisok.txt');
  reset(f);
  i:=0;
  new(graf);
  while not(eof(f)) do begin
    i:=i+1;
 
    graf^.v:=i;
    write(i,' cvyzana c :') ;
    while not(eoln(f)) do begin
      read(f,k);
      graf^.listinc^.n:=k;
      write(graf^.listinc^.n,' ');
      graf^.listinc:=graf^.listinc^.next;
    end;
    writeln;
    graf^.listinc:=nil;
    graf:=graf^.next;
    readln(f,m);
  end;
  graf^.next:=nil;
  close(f);
end;
 
procedure addelem(var stek:olist;m:integer);
var tmp:olist;
begin
new(tmp);
tmp^.next:=stek;
tmp^.inf:=m;
stek:=tmp;
end;
 
procedure wg(k:integer);
var g:Mlist;l:lList;tmp:olist;
begin
  nov[k]:=false;
  addelem(obhod,k);
  write(k,' ');
  g:=graf;
  while g^.v<>k do begin
    g:=g^.next;
  end;
  l:=g^.listinc;
  while l<>nil do
    if nov[l^.n] then wg(l^.n)
    else
    l:=l^.next;
end;
 
procedure print(stek:olist);
begin
  while stek<>nil do begin
    write(stek^.inf,' ');
    stek:=stek^.next;
  end;
end;
 
begin clrscr;
creategraf;
for i:=1 to n do nov[i]:=true;
wg(1);
print(obhod);
readkey;
end.