TURBO PASCAL:Учебное пособие. Терёхин В.В. - 114 стр.

{$I+} {- включаем контроль ошибок в/в }
  Rewrite(f2); { второй файл для записи}
  n:= FileSize (f1);
  for i:= n - 1 downto 0 do
    begin
        Seek(fl, i); {- устанавливаем указатель на i-ую
                               компоненту первого файла}
        Read(fl, b); {- читаем эту компоненту}
        Write(f2, b); {и записываем во второй файл}
    end;
  Close(fl); {закрываем файлы}
  Close (f2) ;
End.
        Задача. Создайте программу, осуществляющую поиск
по начальной части фамилии автора и выводящую на экран
подходящие записи из файла о книгах (программа р47).
program p50;
type
  Books = record
                N: Integer;
                Avtor: String[45];
                Nazv: String[70];
                Str: Integer;
                God: Integer;
           end;
var
  bf: file of Books;
  r: Books;
  i: integer;
  s: String;
begin
  Writeln('Введите начальную часть фамилии автора');
  Readln(s);
  Assign(bf, 'bibl.dat’);
{Si-} {- отключаем контроль ошибок в/в}
                                                       114