giúp mình bài này với :< Viết Chương trình nhập từ bàn phím một xâu. Thay thế tất cả các cụm ký tự ‘anh’ bằng cụm ký tự ‘em’. (Lưu ý: nếu xâu không có từ anh thì báo là không có cụm ký tự ‘anh’)

uses crt;
var s,em:string;
    i,dem:integer;
begin
   clrscr;
   em:='em';
   write('Nhap s: '); readln(s);
   for i:=1 to length(s) do 
   if copy(s,i,3)='anh' then 
   begin
      delete(s,i,3);
      insert(em,s,i);
      inc(dem);
   end;
   if dem <> 0 then write(s) else write('Khong co cum ky tu "anh"');
   readln
end.

var s: string;

begin

write('Nhap xau : '); readln(s);

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

begin

insert('em',s,pos('anh',s));

delete(s,pos('anh',s),3);

end;

write('Xau sau khi thay la : ',s);

readln

end.