terminado FIRST y NEXT +subrutinas auxiliares

añadidas subrutinas auxiliares:
- BUSCA_OCUPADO
- ULTIMO_ELEMENTO