Скопировать все отрицательные числа из одного файла вещественных чисел в другой

program Library1;
const
  {Максимальные размерности полей}
  KINDMAX = 10;
  AUTHORMAX = 15;
  NAMEMAX = 40;
  PUBLICMAX = 15;
type
  TBook = record
    Kind: string[KINDMAX];
    Author: string[AUTHORMAX];
    Name: string[NAMEMAX];
    Public: string[PUBLICMAX];
    Year: word;
  end;
 
var
  Library: File of TBook;
  FileName: string;
  author: string[AUTHORMAX];
  book: TBook;
  num, ErrCode: word;
 
begin
  {открываем библиотеку}
  repeat
    write('Введите имя файла библиотеки: '); readln(FileName);
    Assign(Library, FileName);
    {$I-}
    Reset(Library);
    {$I+}
    ErrCode:=IOResult;
    if ErrCode<>0 then
      writeln('Ошибка: невозможно открыть файл. Повторите ввод.');
  until ErrCode=0;
  write('Введите имя автора: '); readln(author);
  {подсчитываем книги этого автора}
  num:=0;
  while not EOF(Library) do begin
    Read(Library, book);
    if book.Author=author then
      num:=num+1;
  end;
  Close(Library);
  writeln('Количество книг автора ',author,' в библиотеке = ',num,' шт.');
end.