Ссылка на объект не указывает на экземпляр объекта

PROGRAM Tree(INPUT, OUTPUT);
TYPE
  Ukaz = ^Node;
  Node = RECORD
           Name: STRING;       // имя узла
           Urov: INTEGER;    // уровень узла в исходном дереве
           Flag: BOOLEAN;    // является ли сын последним
           Left, Right: Ukaz;  // сыновья узла
           Fath: Ukaz;       // отец узла
         END;
 
VAR
  FIn: TEXT;
  Prev, kon, Root, P: ^Node;
  Check: BOOLEAN;
  I, N, Len, treeLevel, Level, L, tmp: INTEGER;
  Str, VertexName: STRING;
 
 
 
PROCEDURE PrintLeaf(Prev: Ukaz);
BEGIN
  IF (Prev <> NIL) 
  THEN
    BEGIN
      IF (Prev^.Left = NIL) //нет сыновей
      THEN    
        WRITELN(Prev^.Name);
      PrintLeaf(Prev^.Left);
      PrintLeaf(Prev^.Right);
    END
END;
 
 
PROCEDURE PrintNotLeaf(Prev: Ukaz);
BEGIN
 
  IF (Prev <> NIL)
  THEN
    BEGIN
      IF (Prev^.Left <> NIL)  //есть сыновья
      THEN       
        WRITELN(Prev^.Name);
      PrintNotLeaf(Prev^.Left);
      PrintNotLeaf(Prev^.Right);
    END
END;
 
 
PROCEDURE PrintFath(Check: BOOLEAN; Prev: Ukaz);
VAR
  Temp: Ukaz;
BEGIN
  IF (Prev <> NIL)
  THEN
    BEGIN
      IF (Prev^.Left = NIL) 
      THEN    
        BEGIN
          IF (Check = FALSE)
          THEN
            BEGIN
            
            // WRITELN(Prev^.Fath^.Name);
              New(Temp);
              Temp := Prev^.Fath;  
              WRITELN(Temp^.Name);
            END;
          Check:= TRUE;
          PrintFath(Check, Prev^.Right);
        END
      ELSE
        BEGIN
          Check:= FALSE;
          PrintFath(Check, Prev^.Left);
          Check:= FALSE;
          PrintFath(Check, Prev^.Right);
        END;
    END
END;
 
PROCEDURE PrintVertexexOnLevel(Level: INTEGER; Prev: Ukaz);
BEGIN
  IF (Prev <> NIL) 
  THEN
    BEGIN
      IF (Prev^.Urov = Level)
      THEN
        WRITELN(Prev^.Name);
      PrintVertexexOnLevel(Level, Prev^.Left);
      PrintVertexexOnLevel(Level, Prev^.Right);
    END
END;
 
 
 
 
 
BEGIN
  ASSIGN(FIn,'input.txt');
  RESET(FIn);
  READLN(FIn, Str);
  
  New(Root);
 
  Root^.Name := Str;
  Root^.Urov := 0;
  treeLevel := 0;
  Root^.Flag := TRUE;     // флаг true -последний сын корня, false - нет
  Root^.Fath := NIL;      // корень дерева не имеет отца
  N := 0;                 // уровень вершины дерева
  Prev := Root;           // предыдущая вершина для следующей в файле
  WHILE NOT EOF (FIn) 
  DO
    BEGIN
      READLN(FIn, Str);
      L := 0; // инициализируем уровень вершины
      Len := Length(Str);
      WHILE Str[L+1] = '.' 
      DO
        L := L + 1;    // определение уровня вершины
      IF L > treeLevel 
      THEN
        treeLevel := L;
      VertexName := Copy(Str, L + 1, Len - L);        // опред имя вершины
      New(kon);
      kon^.Name := VertexName;
      kon^.Left := NIL;
      kon^.Right := NIL;
      kon^.Urov := L;
      IF L > N   // переход к следующему уровню вершин
      THEN             
        BEGIN
          Prev^.left := kon;
          kon^.Fath := Prev;     
          kon^.Flag := TRUE;     // последний сын
        END
      ELSE   // продолжение на этом уровне
        IF L = N 
        THEN  
          BEGIN
            Prev^.Right := kon;
            kon^.Fath := Prev^.Fath;  // тот же отец
            Prev^.Flag := FALSE;      // снятие признака не последнего сына
            kon^.Flag := TRUE;        // последний сын
          END
        ELSE                    // подъем по дереву на  N - K уровней
          BEGIN
            P := Prev;
            FOR I := 1 TO N - L 
            DO
              P:= P^.fath; // P - предыдущая вершина того же уровня
            
            kon^.Fath := P^.Fath; // отец тот же что и у брата
            P^.Right := kon;
            P^.Flag := FALSE;     // смена принака последнего сына
            kon^.Flag := TRUE;   //  новый посд сын
          END;
      N := L;      // текущий уровень
      Prev := kon;     // след вершина
    END;     
   Close(FIn);
 
 
   REPEAT
    Writeln('Выдать список вершин являйщихся:');
    WriteLn('1. Листьями');
    WriteLn('2. Не листьями');
    WriteLn('3. Родители листьев');
    WriteLn('4. Список вершин заданного уровня от вершины');
    WriteLn('5. Выход');
    Write('Выбираем : ');
    ReadLn(Tmp);         {  номер пункта меню }
    Case Tmp Of
      1 : Begin
            PrintLeaf(Root);
            WriteLn;
          END;  
      2 : Begin
            PrintNotLeaf(Root);
            Writeln;
          End;  
      3 : Begin
            Check:= False;
            PrintFath(Check, Root);
            Writeln;
          end;
      4 : Begin
            Write('Укажите уровень вершины: ');
            Readln(Level);
            if Level > treeLevel then
              Begin
                Writeln('Неверный уровень');
                Exit;
              end;
            PrintVertexexOnLevel(Level, Root);
            Writeln;
          end;
      5 : Halt
    End
  Until False
 
END.