Nhập vào bàn phím 1 xâu. Thay thế tấc cả cụm từ 'anh' thành 'em'

PROGRAM CT77;
USES crt;
VAR s,n,m: STRING;
BEGIN
clrscr;
Write('Nhap xau: '); Readln(s);
m:='em'; n:='anh';
WHILE pos(n,s)<>0 DO
BEGIN
delete(s,pos(n,s),3); insert(m,s,pos(n,s));
END;
Write(s);
Readln
END.

Download: http://www.mediafire.com/?vqien7xcuhayan8