Помогите пожалуйста если не сложно с задачкой на паскале ?!

примени эту прогу к себе, не получится, пиши

program pro ;
uses crt;
type student = record
g:integer;
fam: string[50];
imja: string[30];
ot: string [30];
gr: integer;
pol: string [1];
f:integer ;
m:integer ;
oi:integer ;
end;
var
a: array[1..255] of student ;
i,n:integer ;
fp:file of student ;
w:student;
Begin
clrscr;
assign (fp,'C:\student.dat');
rewrite(fp) ;
write('Введите колличество студентов: ');
readln(n);
writeln;
writeln('Введите данные о каждом: ');
writeln;
for i := 1 to n do
begin
write('Группа: ',i,'-ого студента: ');
readln(w.g);
write('Фамилия ',i,'-ого студента: ');
readln(w.fam);
write('Имя ',i,'-ого студента: ');
readln(w.imja);
write('Отчество ',i,'-ого студента: ');
readln(w.ot);
write('Год рождения: ',i,'-ого студента: ');
readln(w.gr);
write('Пол: ',i,'-ого студента: ');
readln(w.pol);
write('Оценка по физике: ',i,'-ого студента: ');
readln(w.f);
write('Оценка по математике: ',i,'-ого студента: ');
readln(w.m);
write('Оценка по информатике: ',i,'-ого студента: ');
readln(w.oi);
write(fp,w);
end ;
close(fp) ;
reset(fp); n:=0;
while not eof(fp) do begin inc(n); //чтение файла
read(fp,w); a[n]:=w; // в массив А
end; //
close(fp) ;
for I:=1 to n do
with a do //печать массива А
writeln(i:2,fam:10,imja:7,ot:7,gr:5,pol:2,f:3,m:3,oi:3);
for I:=1 to n do begin
if (a.f=2) and (a[ i ].m=2) and (a[ i ].oi=2) and (a[ i ].pol='M' )
then write(a [ i ].fam:10,a [ i ].imja:10,a [ i ].ot:10) ;
end ;
readln ;
end.