{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************}

Program exemple29g ;
Const Max = 100 ;
Type Personne = Record
     nom, prenom : String ;
     matricule : Integer ;
     End ;
     Tableau = Array[1..Max] Of Personne ;
     PTableau = ^Tableau ;
Var Tab : PTableau ;
    i : Integer ;
    N : Longint ;
BEGIN
WriteLn('Combien de personnes ?');
ReadLn(N);
GetMem(Tab,N*SizeOf(Personne));
For i:=1 To N Do ReadLn(Tab^[i].nom) ; 
FreeMem(Tab,N*SizeOf(Personne));
END.