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.
Código
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;