for i:=1 to Max do
with NF01[i] do
begin
writeln;
writeln('Saisie de l''étudiant n° ', i:3);
readln(nom);
readln(prenom);
readln(age);
readln(N°INSEE);
end;
for i:=1 to Max do
with NF01[i] do
begin
writeln;
writeln('Etudiant n° ', i:3);
writeln('============');
writeln(nom);
writeln(prenom);
writeln(age);
writeln(numInsee);
end;