Создать файл и выполнить его обработку.Список книг заданного автора, изданных за последние 5 летОбработка заключается в выборе из файла и выдаче на экран требуемой информации. Необходимо организовать ввод данного с клавиатуры — Pascal(Паскаль)

Название книги
Фамилия автора
Год издания
Количество страниц

program       SJ;
uses          crt;
type          a=record
                      f:string;
                      n:string;
                      o:1..3000;
                      c:3..5000;
              end;
var           b:array[1..100] of a;
              i,n: byte;
              f1:text;
begin
     clrscr;
     write('-'); readln(n);
     for i:=1 to n do
                     begin
                          write('- ',i,'--: ');
                          readln(b[i].f);
                          write('-: ');
                          readln(b[i].n);
                          write('-: ');
                          readln(b[i].o);
                          write('-: ');
                          readln(b[i].c);
                     end;
     writeln('-');
     readkey;
     clrscr;
     assign(f1,'Books.txt');
     rewrite(f1);
for i:=1 to n do
                     begin
                          writeln(f1,'-');
                          writeln;
                          writeln(f1,i,') -: ',b[i].f,';');
                          writeln(f1,'  -: ',b[i].n,';');
                          writeln(f1,'   -: ',b[i].o,';');
                          writeln(f1,'   -: ',b[i].c,';');
                     end;
                     close(f1);
end.