ПОМОГИТЕ ПОЖАЛУЙСТА!!! СРОЧНО НАДО!! Написать программу (на PascalABC.Net) создающую файл содержащий сведения о книгах.Сведения о каждой из книг это фамилия автора,название и год издания.Даннная программа обращается к модулю в которой подсчитываются количество книг изданнных до 2000 года

type  tBook = record    author: string[20];    title: string[30];    year: integer  end;var  f1: file of tBook;function k2000(): integer;{ файл должен быт открыт на чтение }var  k: integer;  book: tBook;begin  while not Eof(f1) do  begin    Read(f1, book);    if book.year < 2000 then k := k + 1  end;  k2000 := kend;var  B: tbook;begin  Assign(f1, 'books.000');  Rewrite(f1);  Writeln('Для книги вводите в трех строках: автор, название, год издания');  Writeln('Введите * для завершения ввода');  repeat    Readln(B.author);    if B.author[1] <> '*' then    begin      Readln(B.title); Readln(B.year); Write(f1, B)    end  until B.author[1] = '*';  Close(f1);  Write('Количество книг, изданных до 2000г равно ');  Reset(f1);  Writeln(k2000);  Close(f1)end.Пример диалога с программой:Для книги вводите в трех строках: автор, название, год изданияВведите * для завершения вводаАлександр ГринБегущая по волнам1984Эдгар Аллан ПоЗолотой жук2002Луи БуссенарКапитан Сорви-голова1997Гарри ГаррисонКрыса из нержавеющей стали2007А. и Б. СтругацкиеСказка о Тройке1974*Количество книг, изданных до 2000г равно 3