uses crt; var sao,me,con:string; c:char; begin clrscr; write('Nhap xau me: '); readln(me); write('Nhap xau con: '); readln(con); writeln(' ',me); writeln(' ',con); sao:=me; if con[1]<>'a' then c:='b' else c:='a'; while pos(con,me)<>0 do begin write(' ',pos(con,me),' '); insert(c,me,pos(con,me)); delete(me,pos(con,me),length(con)); end; readln; end. . c:char; begin clrscr; write('Nhap xau me: '); readln(me); write('Nhap xau con: '); readln(con); writeln(' ',me); writeln(' ',con); sao:=me; if con [1] <>'a'