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

  Reset(bf); {файл открываем для чтения}
  if IOResult <> 0 then
    begin
        Writeln('Произошла ошибка, файл bibl.dat не
                        существует');
        Halt; (прерываем программу}
    end;
{$I+} {- включаем контроль ошибок в/в}
  While not Eof(bf) do
    begin
        Read(bf, r);
  { Функция Pos(SubS, S: String): Byte возвращает пози-
цию, начиная с которой в строке S располагается подстро-
ка SubS (0 - S не содержит SubS).}
        if pos(s, r. avtor) = 1 then Writeln(r. n: 3, r. avtor: 12,
                                r. nazv: 14, r. str: 6, r. god: 8) ;
      end;
  Close(bf) ;
end.
        Для работы с файловой системой нам могут понадо-
биться следующие процедуры из модуля System:
  procedure ChDir(s: string);
Процедура изменяет текущий каталог. Здесь s-выражение,
содержащее путь к новому каталогу.
        Пример:
program p51;
Var
  S: String;
begin
  Write('Введите путь к каталогу');
  Readln(S);
{$i-}
  ChDir(S);
  if IOResult <> 0 then
        Writeln('Данный каталог отсутствует');
                                                                  115