Описать файл записи "Статья" - Pascal

program pr;
 
type
  stat = record          // запись
    fio: string[50];
    title: string[50];
    number: integer;
    year: integer;
  end;
 
var
  a: array [1..100] of stat;        // массив записей stat
  f: file of stat;                     // типизированный файл записей stat
  i, n: integer;
 
begin
  assign(f, 'c:\magazine.txt');                     // открываем файл для записи в него
  rewrite(f);
  writeln('Введите количество записей');
  readln(n);
  for i := 1 to n do
  begin
    writeln('Введите ФИО автора');
    readln(a[i].fio);
    writeln('Введите название журнала');
    readln(a[i].title);
    writeln('Введите номер журнала');
    readln(a[i].number);
    writeln('Введите год издания');
    readln(a[i].year);
    write(f, a[i]);                                      // записываем элемент по циклу
    writeln;
  end;
  close(f);
  writeln('Журналы номер которых не меньше 5 и выпущены s 2000 году: ');    // сам запрос, если я правильно его понял 
  reset(f);
  while not eof(f) do
  begin
    inc(i);
    read(f, a[i]);
    if (a[i].number >= 5) and (a[i].year = 2000) then      // выводится журналы номера которых не меньше 5, выпущенные в 2000 г
    begin
      writeln('Название: ',a[i].title);
      writeln('Номер: ',a[i].number);
      writeln('Автор: ',a[i].fio);
    end;
  end;
  close(f);
end.