Program FindWordInText;
Uses
    Crt;

    Function FindWord(fname, word:string):boolean;
    Var
       i, j:integer;
       f:text;
       stroka:string;
    Begin
      Assign(f, fname);
      Reset(f);
      while not EOF(f) do
      begin
        Readln(f, stroka);
        i:=1;
        for j:=0 to Length(stroka) do
        begin
          {Analizaciya algoritma Writeln('word = ', word,'; Length = ', Length(word),'; i = ', i);}
          if (stroka[j] = word[i])
            then
              Inc(i)
            else
              i:=1;
          if i - 1 = Length(word)
            then
              begin
                FindWord:=true;
                break;
              end;
        end;
      end;
      Close(f);
    End;

Var
   f, s:string;
Begin
    ClrScr;
    f := 'text.txt'; { - imya faila}
    s := 'Hello Word'; { - slovo}
    if FindWord(f, s) = true
       then
         Write('True')
       else
         Write('False');
    Readln;
End.

if position = 0 then FindWord:=false else FindWord:=true;