С рекурсией и проще, и писать меньше
## Код:
```
PROCEDURE (t:BTree) Insert*(new: TyumsuAbsTree.Tree);
  BEGIN
    WITH new: BTree DO
      IF new.key.id < t.key.id THEN
        IF t.left # NIL THEN t.left.Insert(new); ELSE t.left := new END;
      ELSIF new.key.id > t.key.id THEN 
        IF t.right # NIL THEN t.right.Insert(new); ELSE t.right := new END;
      END;
    END;
END Insert;
```
