Giúp mình bài này với!

[cafesua1892]

Nhập vào 1 chuỗi ký tự, và thay thế tất cả cụm từ "anh" = "em".
VD: anh và anh => em và em.

[thuonghcm]

while pos('anh',s)<>0 do begin insert('em',s,pos('anh',s));delete(s,pos('anh'),3)end;