Vă rog să mă ajutați , nu se compilează
program crearea;
type
Elev = record
Nume : String;
Pronume : String;
NotaMedie : Real;
end;
FisierElevi = file of Elev ;

var FE : FisierElevi;
E : Elev;
str : string;
i , n : integer;
begin
Write('dati numele fișierului de creat:');
readln(str);
assign(FE,str);
rewrite(FE);
Write('dati numărul d elevi:');
ReadLn(n);
for i:=1 to n do
begin
WriteLn('dati datele elevului :',i);
WriteLn('Nume:');
ReadLn(E.Nume);
writeln('Prenume:');
readln(E.Prenume);
writeln('NotaMedie:');
Readln(E.NotaMedie);
Write(Fe,E);
end;
close(FE);

readln;
end.