Типизированные файлы

program lab10;
const
n = 4;
 
type
  R = record
    FIO: array[1..n] of string[30];
    Title: array[1..n] of string[20];
    Year: array[1..n] of integer;
    Price: array[1..n] of integer;
  end;
 
var
  book: R;
  books: file of R;
 i,j , max, year: integer;
  a: array[1..n] of string;
 
begin
  assign(books, 'c:/books.txt');
  rewrite(books);
  book.FIO[1] := 'Эрнест Хемингуэй';
  book.Title[1] := 'Старик и море';
  book.Year[1] := 1952;
  book.Price[1] := 200;
  write(books, book);
  book.FIO[2] := 'Ричард Бах';
  book.Title[2] := 'Мост через вечность';
  book.Year[2] := 1994;
  book.Price[2] := 350;
  write(books, book);
  book.FIO[3] := 'Эрих Мария Ремарк';
  book.Title[3] := 'Триумфальная арка';
  book.Year[3] := 1945;
  book.Price[3] := 250;
  book.FIO[4] := 'Рэй Брэдбери';
  book.Title[4] := 'Вино из одуванчиков';
  book.Year[4] := 1994;
  book.Price[4] := 300;
  write(books, book);
  Close(books);
  Reset(books);
  writeln('Введите год выпуска книги:');
  readln(year);
 
  for i := 1 to n do
  begin
    if year = book.Year[i] then
   a[i]:=book.Title[i];
   end;
   for i:=1 to n-1 do
    for j:=1 to n-i do
    if (ord(a[i])>(ord(a[j+1])) then begin
    k:=n[j];
    n[j]:=n[j+1];
    n[j+1]:=k;
    end;
    writeln(a[i]);
end.