var S1:string[40];
s2:string[35];
s:string;
i:integer;
begin
write('Nhap xau s1:');
readln(s1);
write('Nhap xau s2:');
readln(s2);
//chen xau
s:=s2;
insert(s1,s,5);
writeln('xau sau khi chen:',s);
//vi tri dau tien cua s2 trong s1
writeln('vi tri xuat hien cua s2 ',pos(s2,s1));
//xoa dau khoang cach trong s1
for i:=1 to length(s1) do
while s1[i]=' ' do delete(s1,i,1);
writeln('xau sau khi xoa dau cach',s1);
readln;
end.