Создать файл записей и выполнить его обработку

Const l='-------------------------------------------------------------------';
Type Abiturent=Record
      fam:string[15];
      year:integer;
      residence:string[15];
      profession:string[15];
      ball:byte;
     End;
Var f:file of abiturent;
    st:abiturent;
    i,c,min,n:integer;
Begin
    write('Количество абитуриентов: ');readln(n);
    Assign(f,'in.dat');Rewrite(f);
    For i:=1 to n do
      With st do
      Begin
         writeln('Информация о ',i,' абитуренте');
         write('Фамилия: ');readln(fam);
         write('Год рождения: ');readln(year);
         write('Место жительства: ');readln(residence);
         write('Специальность: ');readln(profession);
         write('Оценка: ');readln(ball);
         write(f,st);
      End;
    write('Min оценка: ');readln(min);
    writeln(l);
    writeln('|    Фамилия    | Год | Место жительства | Специальность | Оценка |');
    writeln(l);
    Reset(f);
    For i:=1 to n do
    Begin
      read(f,st);
      With st do
       if ball<min then
       Begin
         writeln('|',fam:15,'|',year:5,'|',residence:15,'|':4,profession:15,'|',ball:5,'|':4);
         inc(c);
       End;
    End;
    if c=0 then writeln('Нету абитуриентов удолетворяющих условию');
    writeln(l);
    readln;
End.