Vereis tengo una constante cuyo número de libro en la biblioteca es de 50.

Al utilizar este procedimineto que os pongo me salen para introducir datos de libros los 50.

qué código tengo que agregar para que únicamente me salga un libro a introducir y no los 50?

saludos y gracias por anticipado.

PROCEDURE lee_biblioteca(var biblioteca: Tbiblioteca; longitud: integer);
 
var
 
i: integer;
 
begin
 
for i:= 1 to longitud do
 
	begin
 
		writeln('Introduzca los datos del libro: ' , i);
		lee_libro(biblioteca[i]);
 
	end;
 
end;

HOLA!!!

Como dice skapunky , asi te salen los 50 ( suponiendo que long sea 50).

Ahora si long es el libro a ver tendrias que hacer:
Y yo pondria un: Para que el usuario pudiese introducir los datos para el libro i.

GRACIAS POR LEER!!!