Технический форум - Помогите, пожалуйста, найти ошибку

Весь день пытаюсь,не пойму что не так делаю..Надо написать именно как я, двумя программами.
задание:1.Составить файл,где будет записана фамилия,имя,отчество,год рождения,пол,оценка по физике,математике,информатике,стипендия. (надеюсь нормально составила задание,хотя по программа наверно понятно, но эта программа у меня вроде правильная,со второй не выходит...)
2. Для студентов имеющих "5" по физике,вывести фамилию,имя,отчество,средний балл и стипендию. (из составленного нами файла)

Первая:

Код HTML:

Program project;

Type

Studdan=record

                 FIO:string[50];

                 GR:integer;

                 Pol:string[2];

                 MOF:integer;

                 MOM:integer;

                 MOI:integer;

                 Step:real;

                 end;

Var

   fname:string[40];

   anheta:studdan;

   fp:file of studdan;

   n:char;

Begin

   Writeln('Введите имя обр файла');

   Readln (fname);

   assign(fp,fname);

   rewrite(fp);

   n:= 'y';

   while n='y' do

     begin

        write('ФИО:');

        readln(anheta.FIO);

        write('год рождения:');

        readln(anheta.GR);

        write('пол:');

        readln(anheta.POL);

        write('оценка по физике:');

        readln(anheta.MOF);

        write('ценка по математике:');

        readln(anheta.MOM);

        write('оценка по информатике:');

        readln(anheta.MOI);

        write('стипендия:');

        readln(anheta.STEP);

        write(fp,anheta);

        write('Продолжать ввод?(y/n)');

        readln(n);

       end;

  close(fp);

end.

Вторая:

Код HTML:

Program project;

Type

Studdan=record

                 FIO:string[50];

                 GR:integer;

                 Pol:string[2];

                 MOM:integer;

                 MOI:integer;

                 Step:real;

                 SR:real;

                 MOF:integer;

                 end;

Var

   t,fname:string[40];

   anheta:studdan;

   fp:file of studdan;

   k:integer;

Begin

   Writeln('Введите имя обр файла');

   Readln (fname);

   assign(fp,fname);

   reset(fp);

   writeln('искомые студенты');

   Readln (t);

   k:=0;

   while not eof(fp) do

begin

       read(fp,anheta);

       if(anheta.MOF=5) then

 BEGIN

anheta.SR:=((anheta.MOF+anheta.MOM+anheta.MOI)/3);

 K:=K+1;

 writeln(anheta.FIO,anheta.SR,anheta.STEP);    

end;

end;

if k=0 then

       writeln('искомых студентов нет');

       close(fp);

       readln;

end.