#include <stdio.h>
#include <string.h>
#define TAM 5

struct dato
    {
      char n_vino[30];
      int agno;
      short ocupado;
    } vignedo1[TAM];

struct dato vignedo2[TAM];

char menu(void);
void altas();
void muestra();
void buscar_viejo();
void borrar();

int main()
{
  char opc;
  int j;
  
  for (j=0; j<TAM; j++)
     vignedo1[j].ocupado=0;
  do {
      opc=menu();
      getchar();
      switch (opc)
          {
           case '1': altas();
					 break;
	       case '2': muestra();
        			 break;
	       case '3': buscar_viejo();
  					 break;
		   case '4': borrar();
		             break;
           case '5': printf("\n Salir ....\n");
				     break;
	       default : printf("\n Error!!! \n");
		  }
      }while (opc!='5');
  getchar();
  return 0;
}

/* Muestra menú y lee la opción */
char menu()
{
 printf("1. Intruduce vino\n");
 printf("2. Mostrar vinos\n");
 printf("3. Cosecha mas antigua\n");
 printf("4. Borrar un vino\n");
 printf("5. Salir\n");
 printf("\n Elige opcion...");
 return getchar();
}

  /* Da de alta un nuevo elemento */
/* Paso de parámetros por referencia */
void altas()
{
 int k=0;
 
 while (k<TAM && vignedo1[k].ocupado==1) k++; 
    
 if (k<TAM)
   {
    printf("\nNombre del vino: ");
    scanf("%[^\n]s",vignedo1[k].n_vino);
    printf("\nDa el año: ");
    scanf("%d",&vignedo1[k].agno);
    vignedo1[k].ocupado=1;
   }
 else
   printf("\n Viñedo lleno \n");
 getchar();
}

/* Muestra los vinos */
void muestra()
{
 int j=0;
 
 while (j<TAM){
   if (vignedo1[j].ocupado == 1) 
    {
     //printf ("\nBandera: %d",vignedo1[j].ocupado);
	 printf("\nVino: %s",vignedo1[j].n_vino);
	 printf("\nAño: %i \n",vignedo1[j].agno);
    }		
    j++;
   }		
}

void  buscar_viejo()
{
 int j=0, viejo=0;
 
 while (viejo<TAM && vignedo1[viejo].ocupado==0) viejo++;
 while (j<TAM)
    {
    if (vignedo1[viejo].agno>vignedo1[j].agno && vignedo1[j].ocupado==1)
	  viejo=j;
    j++;
   }
 if (viejo<TAM)
    printf("\nVino: %s \n",vignedo1[viejo].n_vino);
 else
   printf("\nNo hay vinos\n");
}

void borrar()
{
     int k=0;
     char nombre[30];
     
     printf("\nCual es el vino a borrar? ");
     scanf("%[^\n]s",nombre);
     
     while (k<TAM && strcmp(nombre,vignedo1[k].n_vino)!=0)
       k++;
     if (k<TAM)
        {
          vignedo1[k].ocupado=0;
        }
     else
        printf("\nNo se encontró el vino\n");
     getchar();
}