Inserer en tete

Bonjour,
procedure insertion_tete (var listet :ptretud );
var etudiant : ptretud ;
code1 : integer ;
nom1,prenom1 : string[20] ;

begin
new (etudiant ) ;

write( 'code' ) ; readln (code1) ; etudiant^.code := code1 ;
write('nom !' ) ; readln (nom1) ; etudiant^.nom := nom1 ;
write (' prenom!'); readln (prenom1) ; etudiant^.penom:=prenom1 ;
etudiant^.suivant := listet ;
listet := elment ;
end ;