Tim xau 1 trong xau 2

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.