Patriota_Programador

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.