Program P89;
 { Crearea 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;
  i, n : integer;

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

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

 write('Daţi numňrul de elevi: '); readln(n);

 for i:=1 to n do
   begin
     writeln('Daţi datele elevului  ', i);
       { citeşte cîmpurile variabilei E de la tastatură }
     write('Numele:  '); readln(E.Nume);
     write('Prenumele:  '); readln(E.Prenume);
     write('Note medie:  '); readln(E.NotaMedie);

     write(FE, E); { scrie E în FE }
   end;

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