Даны сведения о книгах: ФИО автора, название книги, издательство и год издания. Вывести сведения о книгах с названием «Программирование» по возрастанию года издания- Pascal(Паскаль)

type
  book = record
    fio: string[255];
    izd: string[255];
    god: integer;
    nazv: string[255];
  end;
 
 
var
  f: file of book;
  a: array[1..100] of book;
  i, n, j: integer;
  z: book;
 
begin
  writeln('кол-во книг');
  readln(n);
  assign(f, 'books.dat');
  rewrite(f);
  for i := 1 to n do 
  begin
    with z do
    begin
      writeln('Автор');
      readln(fio);
      writeln('название');
      readln(nazv);
      writeln('издательство');
      readln(izd);
      writeln('год');
      readln(god);
    end;
    write(f, z);
  end;
  close(f);
  reset(f);
  j := 0;
  for i := 0 to filesize(f) - 1 do
  begin
    seek(f, i);
    read(f, z);
    inc(j);
    a[j] := z;
  end;
  close(f);
  for i := n downto 2 do
    for j := 2 to i do
      if a[j].god < a[j - 1].god then
      begin
        z := a[j];
        a[j] := a[j - 1];
        a[j - 1] := z;
      end;
  for i := 1 to n do
    if a[i].nazv = 'Программирование' then
      writeln(a[i].fio, '   ', a[i].god, '  ', a[i].izd, '  ', a[i].nazv);
  
end.