Const Fi='DULIEU.TXT';
      Fo='KETQUA.OUT';
Var f,g: text;
    St: String;
Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        Read(f,St);
        While St[1]=#32 do Delete(St,1,1);
        While St[length(St)]=#32 do Delete(St,length(St),1);
        While Pos(#32#32,St)<>0 do Delete(St,Pos(#32#32,St),1);
        Write(g,St);
        Close(f);
        Close(g);
End.

Đáp án:

Bài 1:

var f1,f2:text;

    S:string;

begin 

  Assign(f1,'dulieu.txt');

reset(f1);

 Assign(f2,'ketqua.txt');

rewrite(f2);

 readln(f1,S);

 while S[1]=' ' do

delete(S,1,1);

  while S[length(s)]=' ' do

delete(S,length(s),1);

 while pos('  ',S)<>0 do

delete(S,pos('  ',S),1);

 write(f2,S);

 close(f1); close(f2);

end.

Bài 2:

var f1,f2:text;

    S1:string;

begin

 Assign(f1,'dulieu.txt');

reset(f1);

 Assign(f2,'ketqua.txt');

rewrite(f2);

  readln(f1,S1);

 while pos('anh ',S1)<>0 do

   begin

     Insert('em ',S1,pos('anh ',S1));

   delete(S1,pos('anh ',S1),4);

  end;

 write(f2,S1);

 close(f1); close(f2);

end.

` @Akira2007 `