Отметьте операции при форматировании документа: выравнивание поиск и замена изменение цвета изменение начертания изменение шрифта замена удаление вставка

Всё

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 : = k end; 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