Поиск и удаление слов в тексте

program Zadanie_10;
var T,T2,T3:text;
       Str,Str2,Str3,slovo:string;
       p,i,nstr:integer;
 
 begin
      assign(T3, 'b.txt');
      rewrite(T3);
      writeln('Rabotaet');
  repeat
 
     assign(T, 'Ctih.txt');
     reset(T);
    repeat
     readln(T, Str);
    until str<>'';
      p:=pos(' ',Str);
       if p=0 then
        begin
         slovo:=Str;
         str:='';
         writeln(T3,slovo);
         end
      else
       begin
        slovo:=copy(Str,1,p-1);
        delete(Str,1,p);
        writeln(T3,slovo);
       end;
        writeln('slovo-',slovo);
       repeat
        p:=pos(slovo,Str);
         if p>0 then delete(Str,p,length(slovo));
          writeln(str);
       until pos(slovo,str)=0;
 
      assign(T2, 'a.txt');
      rewrite(T2);
 
      writeln('-',slovo,'-',Str,'-');
      if str<>'' then writeln(T2,Str);
 
      repeat
       readln(T,Str);str:=str+' ';
        repeat
         p:=pos(slovo+' ',Str);
          if p>0 then delete(Str,p,length(slovo)+1);
        until pos(slovo,str)=0;
        if str<>'' then writeln(T2,Str);
      until eof(T);
 
     close(T2);
      reset(t2);
      nstr:=0;
       while not(seekeof(T2)) do
        begin
         readln(t2,str);
         inc(nstr);
        end;
     close(T);
     close(T2);
     writeln('nstr=',nstr);
     Erase(T);
     Rename(T2, 'Ctih.txt');
   until nstr=0;
     close(T3);
 
writeln('Konec');
  readln;
 end.