Код:

program pr2;
      uses crt;
              type knuzka=record
              avtor,nazvaknuhu,nazvavudavnuztva:string[30];
              rik,obsah:integer;
             end;
        myfile=file of knuzka;
    VAR
      f1:myfile;
      f2:myfile;
      k1:knuzka;
      i,n:integer;
    BEGIN
     clrscr;
      writeln('введіть кількість книг');
    readln(n);
     assign(f1,'d:\file A.txt');
      rewrite(f1);
    for i:=1 to n do
        begin 
   writeln('введіть автора книги');
       readln(k1.avtor);
     writeln('введіть назву книги');
       readln(k1.nazvaknuhu);
    writeln('введіть рік видання');
       readln(k1.rik);
    writeln('введіть назву видавництва');
        readln(k1.nazvavudavnuztva);
     writeln('введіть обсяг книги');
        readln(k1.obsah);
     write(f1,k1);
    end;
    close(f1);
    writeln('ФАЙЛ А');
   writeln('Автор книги  Назва книги  Рік видання  Назва видавництва  Обсяг книги');
   reset(f1);
      for i:=1 to n do
     begin
    read(f1,k1);
     writeln(k1.avtor:10,k1.nazvaknuhu:13,k1.rik:13,k1.nazvavudavnuztva:17,k1.obsah:12);
    end;
    close(f1);
    reset(f1);
   assign(f2,'d:\file B.txt');
   rewrite(f2);
    while not eof(f1) do
    begin   
    read(f1,k1);
     if (k1.nazvavudavnuztva='дніпро') and (k1.rik>1990) then
    write(f2,k1);
   end;
   close(f1);
  close(f2);
   writeln;
  writeln('ФАЙЛ В');
   writeln('Автор книги  Назва книги  Рік видання  Назва видавництва  Обсяг книги');
    reset(f2);
    for i:=1 to n do
    begin
    read(f2,k1);
writeln(k1.avtor:10,k1.nazvaknuhu:13,k1.rik:13,k1.nazvavudavnuztva:17,k1.obsah:12);
  end;
  END.