Pascal/Turbo Pascal - Urgente:Verificacion de datos antes de ingresarlos

Estoy trabajando un programa en el cual tengo un archivo de libros; lo que necesito saber es como puedo hacer en TP 7.0 para solcitar al usuario que digite el código del libro y que el programa verifique en el archivo si ese codigo existe, de ser así, que despliegue un mensaje de error o de los contrario que solicite el resto de datos necesarios y los almacene en el archivo.
Apreciaria muchisimo su ayuda pues he tratado varios codigos y no me han funcionado.
Saludos.

function posicion(var archivo:tipo_archivo; codigo:string):integer;
var
encontrado:boolean;
reg:registro {registro es el del tipo del archivo}

begin
seek(archivo,0); {empieza desde el primer registro}
bandera:=false;
while not eof(archivo) and not encontrado do begin
read(archivo,reg);
encontrado:=reg.codigo=codigo;
end;
if encontrado then
posicion:=filepos(archivo)-1
else
posicion:=-1;
end;

Esta funcion devuelve -1 cuando no encuentra el codigo que se paso como parametro, en caso contrario desvuelve la posicion del registro en el archivo.

para usarla de la sig, forma

write('Codigo: ');
read(reg.codigo);

pos:=posicion(archivo,reg.codigo);

if pos = -1 then begin {no encontro el codigo}
write('Nombre: ');
readln(reg.nombre);
etc...

seek(archivo,filesize(archivo); {para escribir en el archivo}
write(archivo,reg);

end
else begin {el codigo ya existe}
end

Espero te sirva

Roberto