FUNCTION EnterId (Id : Alfa; K : Objekt; Level : INTEGER) : INTEGER;
  VAR
    J, L : INTEGER;
  BEGIN
    IF T = TMax
      THEN Fatal(1)
      ELSE
        BEGIN
          Tab[0].Name := Id;
          J := Btab[Display[Level]].Last;  L := J;
          WHILE Tab[J].Name <> Id DO J := Tab[J].Link;
          IF J <> 0
            THEN SemError(1)
            ELSE
              BEGIN
                T := T + 1;
                WITH Tab[T] DO
                  BEGIN
                    Name := Id; Link := L; Normal := TRUE; Obj := K;
                    Typ := NoTyp; Ref := 0; Lev := Level; Adr := 0
                  END;
          Btab[Display[Level]].Last := T
        END
      END;
    EnterId := T;
  END;