Файлы с компанентами сложной структуры

TYPE student=record
  im,fam,otc,obsh:string;
  godsh,godroj:1950..2011;
  at:124..200;
  mat,ukr,fiz,ist:2..5;
  end;
var f,g:file of student;
    s:student;
    i,n:integer;
begin
 assign(g,'g');
 rewrite(g);
 write('Ââåäèòå êîëè÷åñòâî àáèòóðèåíòîâ: ');
 readln(n);
 writeln('Ââåäèòå äàííûå î àáèòóðèåíòàõ');
 for i:=1 to n do
 begin
 writeln(i,' ñòóäåíò');
 with s do
  begin
   write('Èìÿ: '); readln(im);
   write('Îò÷åñòâî: '); readln(otc);
   write('Ôàìèëèÿ: '); readln(fam);
   write('Ãîä ðîæäåíèÿ: '); readln(godroj);
   write('Ãîä îêîí÷àíèÿ øêîëû: '); readln(godsh);
   write('Ñðåäíèé áàë àòåñòàòà: '); readln(at);
   write('Íóæíî ëè îáùåæèòèå: '); readln(obsh);
   write('Îöåíêè âñò.ýêç. (Ìàò-êà,Óêð.,Ôèçèêà,Èñòîðèÿ) ');
     read(mat);
     read(ukr);
     read(fiz);
     read(ist);
   write(g,s);
  end;
 end;
reset(g);
assign(f,'f');
rewrite(f);
while not eof(g) do
begin
read(g,s);
with s do
if ((mat<4)and(ukr<4)and(fiz<4)and(ist<4)) then
 else write(f,s);
end;
 
reset(f);
writeln('Ñîäåðæàíèå ôàéëà: ');
while not eof(f) do
begin
read(f,s);
with s do
writeln(im,' ',otc,' ',fam,' ',godroj,' ',godsh,' ',at,' ',
obsh,' ',mat,',',ukr,',',fiz,',',ist);
end;
close(g);
close(f);
erase(g);
END.