Работа с записями и типизированными файлами

program pr;
const
  Csize = 100;
type
  Tboo = record
    surname: string[50];
    title: string[50];
    price: integer;
    year: integer;
  end;
  Tarr = array [1..Csize] of Tboo;
var
  f: file of Tboo;
  i, n: integer;
  a: Tarr;
begin
  assign(f, 'bo.txt');
  rewrite(f);
  writeln('Введите количество книг');
  readln(n);
  for i := 1 to n do
  begin
    writeln('Введите фамилию и инициалы автора');
    readln(a[i].surname);
    writeln('Введите название книги');
    readln(a[i].title);
    writeln('Введите цену');
    readln(a[i].price);
    writeln('Введите год издание');
    readln(a[i].year);
    write(f, a[i]);
    writeln;
  end;
  close(f);
  writeln('Книги, стоимость которых меньше или равна 200: ');
  reset(f);
  while not eof(f) do
  begin
    inc(i);
    read(f, a[i]);
    if a[i].price <= 200 then
    begin
      writeln(a[i].surname, ' ', a[i].title, ' ', a[i].price, ' ', a[i].year);
    end;
  end;
  close(f);
end.