Помогите с программой на Паскаль с файлами данных

 program Medalists; 
type 
  Student = record 
    name: string[50]; 
    birthYear: integer; 
    group: string[10]; 
    medal: string[10]; 
  end; 
var 
  f, g: file of Student; 
  s: Student; 
  count: integer; 
begin 
  assign(f, 'students.dat'); 
  rewrite(f); 
  // Заполнение файла данными о студентах 
  s.name := 'Иванов Иван Иванович'; 
  s.birthYear := 2000; 
  s.group := 'БПИ-101'; 
  s.medal := 'золотая'; 
  write(f, s); 
   
  // Добавьте здесь других студентов... 
   
  close(f); 
   
  // Чтение данных из файла и подсчет медалистов 
  reset(f); 
  count := 0; 
  while not eof(f) do begin 
    read(f, s); 
    writeln('ФИО: ', s.name); 
    writeln('Год рождения: ', s.birthYear); 
    writeln('Группа: ', s.group); 
    writeln('Медаль: ', s.medal); 
    writeln; 
    if s.medal <> '' then inc(count); 
  end; 
  close(f); 
   
  writeln('Количество медалистов: ', count); 
   
  // Создание нового файла с данными о студентах, имеющих золотую медаль 
  assign(g, 'gold_medalists.dat'); 
  rewrite(g); 
   
  reset(f); 
  while not eof(f) do begin 
    read(f, s); 
    if s.medal = 'золотая' then write(g, s); 
  end; 
   
  close(f); 
  close(g); 
end.