tu codigo, lo compile en Dev Pascal 1.9.2, y cuando termino de cargar un libro se me sale!
dame hasta mañana y trato de debuguearlo!
suerte 
GRACIAS eternity! La verdad que ya encontre 2 errores muy bruscos en mi programa, pero todavia no logro corregir todo el prog por completo:
En la parte que dice
procedure nuevo_reg(reg:libros);
deberia ir
procedure nuevo_reg([b]var[/b] reg:libros);
El otro error estaba aqui
seek(arch,filesize(arch));
nuevo_reg(reg);
if buscar(arch,reg.codigo)=-1 then
begin
write(arch,reg);
writeln;
La funcion buscar abre el archivo y lo cierra, por lo tanto, creo ke seria:
seek(arch,filesize(arch));
nuevo_reg(reg);
if buscar(arch,reg.codigo)=-1 then
begin
[b]reset(arch);[/b]
write(arch,reg);
[b]close(arch);[/b]
writeln;
Pero igual sigue sin funcionar
... Ya no se que otro error tendra, y el free pascal se me sale hasta cuando estoy haciendo el watches jeje
..
Espero que me puedan ayudar...
Y de nuevo muchas gracias eternity!
EDITO
:
Ya solucione todos los problemas
El modulo de busqueda estaba mal: debia hacer : ini:= med+1 ó fin:=med-1 , y yo lo que hacia era incrementarlo en 1 o disminuirlo en 1.
Ademas de los errores que mencione, Mi problema venia porque en los modulos de busqueda y de ordenamiento, no debia hacer reset, ni close del archivo, por lo tanto saque los reset y close de ambos modulos, y me funciono perfecto!
Muchas gracias igualmente eternity por tomarte el trabajo de responderme
