Proyecto turboc

INSTRUCCION DATOS
{
CADENA nom[30],dir[35],apo[12],tel[25];
}x[500],aux;
TIPOD E INSTRUCCION datos datos;
PRINCIPALmenu();
PRINCIPAL agregar();
PRINCIPAL eliminar();PRINCIPAL buscar();
PRINCIPAL mostrar();
PRINCIPAL modificar();
PRINCIPAL ultimo();
PRINCIPAL primero();
PRINCIPAL salir();
PRINCIPAL error();

ENTERO cont=0,pos;

MENU()
INICIOSISTEMA("COLOR 5f");
SISTEMA("cls");
SISTEMA("Color 00");
IMPRIMIR("\n\n\n\t\t\t AGENDA TELEFONICA \n\n");
IMPRIMIR("\n\n\t\t\t CLAUDIA GIOVANNA MEDRANO BENITEZ \n\n");IMPRIMIR("\t\t\t Codigo: 209190929 \n\n\t\t\t INTRODUCCION A LA PROGRAMACION \n\n");
IMPRIMIR("\t\t\t Esquivel Torres, Sara \n\n\t\t\t SECCION : D17 \n\n");
REGRESAR();
MENU();
FINPEINCIPAL MENU()
INICIO
ENTERO opc;
SISTEMA("cls");
IMPRIMIR("\n\n\n\n\t\t\t AGENDA \n\n\t\t\t");
IMPRIMIR("Que deseas hacer? \n\t\t\t");
IMPRIMIR("1.-Agregar NuevoContacto. \n\t\t\t");
IMPRIMIR("2.-Eliminar Contacto. \n\t\t\t");
IMPRIMIR("3.-Buscar Contacto. \n\t\t\t");
IMPRIMIR("4.-Mostrar todos los Registros. \n\t\t\t");IMPRIMIR("5.-Modificar Contacto. \n\t\t\t");
IMPRIMIR("6.-Consultar Ultimo. \n\t\t\t");
IMPRIMIR("7.-Consultar Primero. \n\t\t\t");
IMPRIMIR("8.-Salir. \n\t\t\t\t");
LEER("%i", &opc);SEGUN SEA(opc)
FIN
CASO 1: agregar(); break;
CASO 2: eliminar(); break;
CASO 3: buscar(); break;
CASO 4: mostrar(); break;CASO 5: modificar(); break;
CASO 6: ultimo(); break;
CASO 7: primero(); break;
CASO 8: salir(); break;
default: error(); break;
FIN
FINPRINCIPAL AGREGAR()
INICIO
SISTEMA("cls");
IMPRIMIR("\n Cual es su Nombre? \t");
LEER("%s", &x[cont].nom);
IMPRIMIR("\n Cual es su Direccion? \t");
LEER("%s",...