Program P90;
 { Citirea unui fişier cu componente de tipul Elev }
type Elev=record
             Nume : string;
             Prenume : string;
             NotaMedie : real
          end;
     FisierElevi=file of Elev;

var FE : FisierElevi;
     E : Elev;
   str : string;

begin
 write('Daţi numele fişierului de citit:  ');
 readln(str);

 assign(FE, str);   { asociază FE cu numele din str }
 reset(FE);         { deschide FE pentru citire }

 while not eof(FE) do
    begin
      read(FE, E);  { citeşte E din FE }
      writeln(E.Nume, ' ', E.Prenume, E.NotaMedie : 5:2);
                    { afişează E la ecran }
    end;

 close(FE);         { închide FE }
 readln;
end.