/*********************************************************
                                  * Vmetnuva element vo veke podredena lista              *
                                  *********************************************************/
                                void ins_in_ord(nodep *l, info_t x)
                                {
                                      nodep q,p=*l,t=NEW(node);
                                      t->info=x;
                                      if(p==NULL) /* ako e prazna */
                                      {
                                        t->link=NULL;
                                        *l=t;     /* vmetni kako edinstven */
                                        return;
                                      }
                                      if(x < p->info) /* vmetni na celo */
                                      {
                                        t->link=p;      *l=t;
                                      }
                                      else /* najdi mu go mestoto */
                                      {
                                        while(p!=NULL && p->info < x)
                                                p=(q=p)->link;
                                      /* vmetni pomegju q i p */
                                        q->link=t;
                                        t->link=p;
                                      }
                                    }