program buscar;
uses 
	crt;
type
	Direc = record
		 Nombre   : string[30];
		 Calle    : string[25];
		 Ciudad   : string[15];
		 Telefono : string[15]
		end;
	Archivo = file of Direc;
var
	Dir	  : Archivo;
	Elemento  : Direc;
	Respuesta : char;
	Resultado : integer;
	Posicion  : integer;
	NomBuscar : String[30];
	Hallado   : boolean;
 
BEGIN
        clrscr;
	Assign(Dir,'c:/Agenda.dat');
        {$I-}
           Reset(Dir);  {Abre el flujo de datos para posteriormente ser guardado}
           Resultado:=IOresult;
	{$I-}	
 
	if Resultado <> 0 then
	   Rewrite(Dir);
	Hallado:=false;
	Write('Escribe el nombre a buscar: ');
	Readln(NomBuscar);
 
	while not Eof(Dir) and not Hallado do
	     begin
	     Read(Dir,Elemento);
	     Hallado:=Registro.Nombre = NomBuscar;	
 
 	end;
	if Hallado then
	   begin 
		posicion:=FilePos(Dir) - 1;
	   	write ('Se encuentra en ' + posicion)
	   end		
	else
		write('No se encontro el registro');
 
 
	Close(Dir)
END.