Definir Band Como Entero;
Band <- 0;
Definir Cel Como Entero;
Definir i Como Entero;
Escribir "\t ***** Buscar contacto *****";
Escribir "\tIngresa el numero del contacto a buscar:";
Leer Cel;
Para i<-0 Hasta Contador Con Paso 1 Hacer
Si
(Cel<-x[i].Cel)
Escribir "Se ha encontrado el contacto:\n";
Escribir "\tEl nombre del contacto es: ",x[i],Nombre;
Escribir "\tEl apellido del contacto es: ",x[i],Apellido;
Escribir "\tEl correo del contacto es: ",x[i],Correo;
Escribir "\tEl colonia del contacto es: ",x[i],Colonia;
Escribir "\tEl municipio del contacto es: ", x[i],Municipio;
Escribir "\tEl calle del contacto es: ",x[i],Calle;
Escribir "\tEl numero de celular del contacto es: ",x[i],Cel;
Escribir "El contacto no fue encontrado o no existe";