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

const n=25;
type
     student = record
     family:string[18];
     group:integer;
     disciplina:integer;
     end;
     myfile=file of student;
procedure v(var f: myfile);    {Записывает в файл n записей}
var  s:student;  i:integer;
 begin
  writeln('Введите ',n,'записей');
  for i:=1 to n do
   begin
    writeln('Запись ',i);
    write('Введите фамилию: '); readln(s.family);
    write('Введите группу: '); readln(s.group);
    writeln('Дисциплины: mathematics=0, physics=1, biology=2,informatics=3,chemistry=4');
    write('Введите дисциплину: ') ; readln(s.disciplina);
    write(f,s);
   end;
 end;
 
procedure d(var f:myfile);          {Выводит на экран студентов, выбравших x дисциплину}
var s:student;  x:integer;
 begin
  writeln('Дисциплины: mathematics=0, physics=1, biology=2,informatics=3,chemistry=4');
  write('Введите дисциплину: '); readln(x);
  while not eof(f) do
   begin
    read(f,s);
    if s.disciplina=x then
     begin
      write(s.family);
      write(' ',s.group);
      writeln;
     end;
   end;
 end;
 
var f:myfile;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  assignfile(f,'file');
  rewrite(f) ; v(f);
  reset(f); d(f);
  closefile(f);
  readln;
end.