Pascal/Turbo Pascal - AYUDA CON CONSULTA!!!

SALUDOS AGRADEZCO DE ANTE MANO SUS AYUDAS O COMENTARIOS, MI PROBLEMA ES EL SIGUIENTE; TENGO UN PROGRAMA EN PASCAL QUE TIENE DOS ARCHIVO DE REGISTROS UNO DE ESTUDIANTES Y OTRO DE LIBROS. QUIERO UN SENTENCIA QUE ME PERMITA CONSULTAR EL NUMERO DE IDENTIFICACIÓN DE UN ESTUDIANTE DE LA TABLA ESTUDIANTES, EN CASO QUE EL REGISTRO EXISTA, PERMITA CONSULTA EL CÓDIGO DEL LIBRO DE LA TABLA LIBROS, CASO CONTRARIO, TERMINA EL PROGRAMA.

pues para todo eso necesitas muchas cosascomo:
1.- definir el registro de los estudiantes y de los libros
2.-crear las altas de los estudiantes , y para crear las altas de los estudiantes , nececitas:
2.1.- hacer un procedimiento para la apertura del archivo
2.2 un procedimiento o funcion para la busqueda
2.3 un procedimiento para la alta

lo mismo tambien para el archivo de libros

exacto, yo tengo las tablas de los registro y todo, lo que necesito es el codigo para hacer dos consultas en un solo procedimiento,(consultar si el usuario esta registrado y si debe algun libro),

he aqui una funcion para buscar
espero te sirva, la misma te puede servir para los libros , solo cambiale el tipo de archivo y el tipo de registro...

function BuscaRegistroUsuario(Var AArchivo:TArchivoUsuario ;var TIRegistro:RegistroUsuario ;IDBuscar:Integer):longint;
Var
Encontrado:longint;
Begin
textattr:=14+4*16;
gotoxy(4,25);write('Buscando Registro..');

Encontrado :=-1; {inicializamos Encontrado a -1, valor inexistente}
Seek(AArchivo,0); {Posicionamos al inicio el puntero del archivo}
While not EOF(AArchivo) do {iniciamos ciclode recorrido del archivo}
Begin
Read(AArchivo,TIRegistro); {Leemos el Registro segun posicion del puntero}
IF TIRegistro.Numero = IDBuscar then {Comparamos el n£mero de registo con el numero solicitado}
Begin {si es igual el registro encontrado}
Encontrado:=FilePos(AArchivo)-1; {se envia la posicion del registro hallado}
Seek(AARchivo,FileSize(AArchivo)); {se envia el puntero al final del archivo para terminar ciclo}
End;
End;
IF Encontrado <> -1 then {si Encontrado no es igual a -1 , mandamos el valor de la funcion}
Begin
BuscaRegistroUsuario:=Encontrado;
End
Else {si no fue encontrado regresamos -1 a la busqueda}
Begin
BuscaRegistroUsuario:=-1;
End;
textattr:=0+2*16;
gotoxy(4,25);write(' ');
End;

(*--------------------------------------------------------------------------*)