Поиск слова в файле.

[Roman1295]

Всех приветствую. Есть задача: найти введенное слово в файле.
Все не пойму, как сделать. Объясните, пожалуйста.

var f1: text; s: string;
begin
Assign(F1, 'D:\1.txt');
Reset(F1);
writeln('Введите строку');
readln(s);
While not (eof(f1)) do
read(f1,s);
writeln('Слово содержится');
close(f1);
end.

[Stilet]

В твоем цикле после чтения:

if pos(слово,s)<>0 then begin writeln('Слово содержится');break;exit;