Olá tenho um enunciado que diz o seguinte:
Crie um programa em PASCAL que realize o cadastro de alunos de uma escola. Primeiramente, o programa deverá ler um valor válido para a variável n no intervalo [3,40], a qual indicará a quantidade de alunos a serem lidos. Cada aluno precisa ter os seguintes dados (registro): (i) matrícula - integer; (ii) nome – 30 caracteres; (iii) telefone – 20 caracteres. Os dados deverão ser armazenados em uma lista encadeada, cuja a inserção de cada elemento deverá ser no início da lista. Após a conclusão do cadastro dos alunos na lista, exibir os dados de todos os n alunos percorrendo a lista encadeada.
criei um código mas estou com duvida se ele atende o que se pede quem puder mim ajudar fico muito agradecido. segue o código abaixo:
program at_pratica_cadastro;
// Autor: Ronildo Sousa // Disciplina: Linguagem de Programação I
uses crt;
type
Cad_Aluno = record
matricula : integer;
nome : string[30];
tel : string[20];
end;
var
Reg_Vet : array[3..40] of Cad_Aluno;
i,n : integer;
begin
writeln('Informe a quantidade de alunos a cadastrar:');
readln(n);
if (n>=3) and (n<=40) then
begin
for i:=3 to n do
begin
clrscr;
write('Cadastro de Alunos');
writeln;
writeln;
write('Matricula: ');
read(Reg_Vet[i].matricula);
writeln;
write('Nome: ');
read(Reg_Vet[i].nome);
writeln;
write('Telefone: ');
read(Reg_Vet[i].tel);
writeln;
end;
begin
clrscr;
writeln('OS DADOS INSERIDOS FORAM');
for i:=3 to n do
begin
writeln;
write('Matricula: ');
writeln(Reg_Vet[i].matricula);
writeln;
write('Nome: ');
writeln(Reg_Vet[i].nome);
writeln;
write('Telefone: ');
writeln(Reg_Vet[i].tel);
writeln;
end;
end
end
else
begin
writeln('VALOR INVÁLIDO');
end;
end.