[ART]

Код:

function WordExists(const filename, word: string): boolean;
var
 str: string;
begin
 Result := false;
 AssignFile(filename, input);
 Reset(input);
 while not eof(input) do begin
  readln(str);
  if Pos(word, str) > 0 then begin
   Result := true;
   break;
  end;
 end;
 CloseFile(input);
end;