Bài 51/2001 - Thay từ (Dành cho học sinh THCS PTTH) program thaythetu; var source,des:array[1 50]of string; n:byte; procedure init; var i:byte; s:string; f:text; begin assign(f,'input2.txt'); reset(f); n:=0; while not eof(f) begin readln(f,s); inc(n); while (s'')and(s[1]=' ') delete(s,1,1); if i>0 then begin i:=pos(' ',s); des[n]:=copy(s,1,i-1); while (i