Поменять слова в двух файлах

var
 F1,F2,D1,D2:text;
 i1,n1,m1,i,n,m,t,r:integer;
    K,K1:array[1..1000] of string;
      str1,str,x:string;
begin
 assign(F1, 'путь к файлу');
 assign(F2,'путь к файлу');
 assign(D1,'путь к файлу');
 assign(D2,'путь к файлу');
 writeln('введите номера слов');
 readln(r,t);
 reset(F1);
 while not eof(F1) do
     begin
      readln(F1,str);
      rewrite(F2);
      m:= Length(str);
      n:=1;
      K[1]:='';
      for i:=1 to m do
       if str[i]=' ' then
        begin
         inc(n);
         K[n]:=''
        end
       else
        K[n]:=K[n]+str[i];
 reset(D1);
 while not eof(D1) do
     begin
      readln(D1,str1);
      rewrite(D2);
      m1:= Length(str1);
      n1:=1;
      K1[1]:='';
      for i1:=1 to m1 do
       if str1[i1]=' ' then
        begin
         inc(n1);
         K1[n1]:=''
        end
       else
         K1[n1]:=K1[n1]+str1[i1];
 
        x:=K[r];
        K[r]:=K1[t];
        K1[t]:=x;
     end;
     end;
    for i:=1 to n do
     write(F2, K[i],' ');
     writeln(F2);
 
    for i1:=1 to n1 do
     write(D2,K1[i1],' ');
     Writeln(D2);
 
 close(D1);
 close(D2);
 close(F1);
 close(F2);
 
end.