Fala galera. Estou com um probleminha!
gostaria de cadastrar dados em um vetor e depois exibi-los, entretanto não estou obtendo exito.
vejam como fiz e me digam porque nao estou conseguindo listar os dados digitados:
Program Biblioteca ;
Type
Livros = Record
matricula:integer;
Nome: String;
Autor: String;
Editora: String;
Quant:integer;
End;
var
vetor_livros: array[1…10] of Livros;
qtd_livros,i,j: integer;
//cadastra livros
Procedure Cadastrar_Livro;
Begin
qtd_livros := qtd_livros +1;
Writeln('Digite a Matricula: ');
readln(vetor_livros[qtd_livros].matricula);
Writeln('Digite o nome do Livro: ');
readln(vetor_livros[qtd_livros].Nome);
Writeln('Digite o Autor: ');
readln(vetor_livros[qtd_livros].Autor);
Writeln('Digite a Editora: ');
readln(vetor_livros[qtd_livros].Editora);
End;
//Mostrar dados cadastrados em um Array
Procedure Listar_Livro;
Begin
for i:=1 to qtd_livros do
begin
writeln(vetor_livros[qtd_livros].matricula);
writeln(vetor_livros[qtd_livros].Nome);
writeln(vetor_livros[qtd_livros].Autor);
writeln(vetor_livros[qtd_livros].Editora);
end;
End;