Viết công thức nhập vào 1 xâu. Thay thế xâu Anh bằng xâu em trong xâu vừa nhập

$program$ $tin$_$hoc;$

$uses$ $crt;$

$var$ $a:string;$

      $vt: byte;$

$Begin$

      $clrscr;$

      $write('nhap$ $xau$ $a:');$ $readln (a);$

      $while$ $pos$ $('anh',a)>0$ $DO$ 

      $Begin$

          $Vt:=pos('anh',a);$

          $Delete$ $(a,vt,3);$

          $Insert$ $('em',a,vt);$

      $End;$

 $Write('xau$ $a$ $sau$ $khi$ $thay$ $the$ $la',a);$

$Readln$

$End.$ 

BẠN THAM KHẢO.

uses crt;
var s:string;
begin
    clrscr;
    readln(s);
    while pos('anh',s)<>0 do
        begin
            insert('em',s,pos('anh',s));
            delete(s,pos('anh',s),3);
        end;
    write(s);
    readln;
end.