procedure insert(key: float; info: integer);

This is insert, a member of class TAnnMin_k.