Определить, есть ли в тексте заданное слово

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
Var f:text;
    s,s1,s2:string;
    b:boolean;
    i:byte;
Begin
    Assign(f,'c:\in.txt');Rewrite(f);
    Repeat
     write('Vvedite stroku texta(okonchanie vvoda,vvod pustoi stroki): ');readln(s);
     if s<>''then writeln(f,s);
    Until s='';
    Close(f);
    write('Vvedite slovo: ');readln(s2);
    Assign(f,'c:\in.txt');Reset(f);
    s1:='';b:=false;
    While not Eof(f) do
     Begin
      readln(f,s);
      writeln(s);
      s:=s+' ';
      For i:=1 to Length(s) do
       if not (s[i] in [' ','.','-',':',';','!','?']) then s1:=s1+s[i]
        else 
         Begin
          if s2=s1 then b:=true;
          s1:='';
         End;
     End;
    if b then writeln('V faile est" takoe slovo')
     else writeln('V faile net takogo slova');
    Close(f);
    readln;
end.

program Project1;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, CustApp
  { you can add units after this };
 
type
 
  { TMyApplication }
 
  TMyApplication = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
    constructor Create(TheOwner: TComponent); override;
    destructor Destroy; override;
    procedure WriteHelp; virtual;
  end;
 
{ TMyApplication }
 
procedure TMyApplication.DoRun;
var
  ErrorMsg: String;
begin
  // quick check parameters
  ErrorMsg:=CheckOptions('h','help');
  if ErrorMsg<>'' then begin
    ShowException(Exception.Create(ErrorMsg));
    Terminate;
    Exit;
  end;
 
  // parse parameters
  if HasOption('h','help') then begin
    WriteHelp;
    Terminate;
    Exit;
  end;
 
  { add your program here }
 
  // stop program loop
  Terminate;
end;
 
constructor TMyApplication.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
  StopOnException:=True;
end;
 
destructor TMyApplication.Destroy;
begin
  inherited Destroy;
end;
 
procedure TMyApplication.WriteHelp;
begin
  { add your help code here }
  writeln('Usage: ',ExeName,' -h');
end;
 
var
  Application: TMyApplication;
 
{$R *.res}
Var f:text;
    s,s1,s2:string;
    b:boolean;
    i:byte;
begin
  Application:=TMyApplication.Create(nil);
  Application.Title:='My Application';
  Application.Run;
  Application.Free;
 Assign(f,'c:\in.txt');Rewrite(f);
    Repeat
     writeln('Vvedite stroku texta(okonchanie vvoda,vvod pustoi stroki): ');readln(s);
     if s<>''then writeln(f,s);
    Until s='';
    Close(f);
    write('Vvedite slovo: ');readln(s2);
    Assign(f,'c:\in.txt');Reset(f);
    s1:='';b:=false;
    While not Eof(f) do
     Begin
      readln(f,s);
      writeln(s);
      s:=s+' ';
      For i:=1 to Length(s) do
       if not (s[i] in [' ','.','-',':',';','!','?']) then s1:=s1+s[i]
        else
         Begin
          if s2=s1 then b:=true;
          s1:='';
         End;
     End;
    if b then writeln('V faile est" takoe slovo')
     else writeln('V faile net takogo slova');
    Close(f);
    readln;
end.