Как найти строку в текстовом файле?

Рассмотрим простейший способ поиска строки в текстовом файле с помощью READLN и прямого сравнения строк, либо нахождения подстроки в строке.

var t:text; s,s1:string;
    count:word;
begin
  readln(s); { Вводим строку для поиска }
  assign(t,'text.txt');reset(t);
  s1:=''; count:=0;
  while not eof(t) and (s<>s1) do begin
    readln(t,s1); inc(count);
  end;
  writeln('искомая строка является ',count,' строкой в файле');
  close(t);
end.
 
{ Hайти подстроку (слово) }
var 
  t:text; 
  s,s1:string;
  count:word;
begin
  readln(s); {вводим подстроку}
  assign(t,'text.txt'); reset(t);
  s1:=''; count:=0;
  while not eof(t) and (pos(s,s1)=0) do begin
    readln(t,s1);
    inc(count);
  end;
  writeln('буквосочетание "',s,'" найдено в строке N ',count,':');
  writeln(s1);
  close(t);
end.