"code có chỗ sai rồi."

"sai ở đâu vậy?"

"để Hương chỉnh lại cho."

"...."

"Hân nhắm mắt lại đã..."

"thôi, đừng làm người ta hồi hộp mà."

"nhắm mắt lại đi mà...."

"hic"

uses crt;
var s:string;
begin
write ('nhap xau:'); readln (s);
while pos ('anh',s) <> 0 do
begin
delete (s,pos ('anh',s),3);
insert ('em', s, pos ('anh',s));
end;
writeln (' minh yeu nhau thoi');
readln;
end.

.
end fic lun