Рассмотрим простейший способ поиска строки в текстовом файле с помощью 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 (ss1) 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.