работа с файлами

[as1212]

Помогите, что-то не получается

Заранее благодарен

program lab14;
uses crt;
type student=record
      fam:string;
      name:string;
       ot:string;
      year:integer;
      sf:integer;
      balot:integer;
      sh:string;
      bal:record
        mat: integer;
        fiz: integer;
      end;
     end;
var st: student;
    i,d,k: integer;
    f,f1: file of student;
    {Разработать программу записи подготовленных данных в файл и
    программу обработки созданного файла: удалить из файла все записи,
    удовлетворяющие условию, и распечатать информацию,
    оставшуюся в файле. С файла, содержащего исходные данные,
    удалить записи, соответствующие абитуриентам, которые имеют
    отличный аттестат и получили все оценки 5 на вступительных экзаменах}
begin
assign(f,'c:\1.txt');assign(f1,'c:\2.txt');
rewrite(f);
writeln('Коль-во студентов');
readln(d);
 with st do
    begin
      for i:=1 to d do
      begin
       writeln('Фимилия');
       readln(fam);
       writeln('Имя');
       readln(name);
       writeln('Отчество');
       readln(ot);
       writeln('Год рождения');
       readln(year);
       writeln('Год окончания школы');
       readln(sf);
       writeln('Средний бал оттестата');
       readln(balot);
       writeln('Нужно ли общежитие');
       readln(sh);
       writeln('Баллы вступительных экзаменов:');
       writeln('Математика:');
       readln(bal.mat);
       writeln('Физика:');
       readln(bal.fiz);
      end;
      Write(f,st);
    end;
k:=0;
reset(f);
rewrite(f1);
while not eof(f) do

  read(f,st);
    begin
     with st do
      if (bal.mat<>5) and (bal.fiz<>5) and (balot<>5) then
      begin
      k:=k+1;
      Write(f1,st);
      end;
    end;

reset(f1);
while not eof(f1) do
 read(f1,st);
   with st do
   for i:=1 to k do
  WriteLn('Не отличники... ',fam,' ',name,' ',ot,' ',year,' ',sf,' ',balot,' ',sh,' ',bal.mat,' ',bal.fiz);
CLOSE(f);
CLOSE(f1);
readkey;
end.

[Serge_Bliznykov]

не, ну а кто должен догадаться, что именно у Вас не получается?!
Это что, тест на сообразительность?!

[as1212]

не выводит нужный результат