Заменить в текстовом файле все вхождения одного слова на другое

program Project2;
 
var
     f1,f2,g:Text;
     s,vrem1,vrem2,str,slovo,zamena:string;
     i:integer;
     bool:boolean;
begin
     slovo:='';
     zamena:='';
     Assign(f1,'f1.txt');
     Reset(f1);
        Assign(f2,'f2.txt');
        Reset(f2);
        Read(f2,vrem1);
        vrem1:=vrem1+' ';
        bool:=true;
           for i:=1 to Length(vrem1) do
        if vrem1[i]=' ' then
          bool:=false
        else
           begin
              if bool=true then
               slovo:=slovo+vrem1[i]
              else
               zamena:=zamena+vrem1[i];
           end;
        Close(f2);
 
        Assign(g,'g.txt');
        ReWrite(g);
        Close(g);
     Assign(g,'g.txt');
     Append(g);
       while not EOF(f1) do
    begin
        ReadLn(f1,s);
        s:=s+' ';
        vrem1:='';
        vrem2:='';
        str:='';
          for i:=1 to Length(s) do
        begin
          if s[i]=' ' then
            begin
             if vrem1[length(vrem1)] in [char(65)..char(90),char(97)..char(122),char(128)..char(175),char(224)..char(247)] then
                begin
                  if vrem1=slovo then
                vrem1:=zamena;
                end
             else
                begin
                   vrem2:=copy(vrem1,1,length(vrem1)-1);
                  if vrem2=slovo then
                    begin
                    vrem2:=zamena;
                    vrem1:=vrem2+vrem1[length(vrem1)];
                    end;
                end;
               str:=str+vrem1+' ';
               vrem1:='';
               vrem2:='';
            end
          else
               vrem1:=vrem1+s[i];
        end;
        WriteLn(g,str);
    end;
     Close(g);
     Close(f1);
end.