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.

uses crt;
var s1:string[40]; s2:string[35];
    s:string;
    i:integer;
begin
   clrscr;
   write('Nhap xau s1: '); readln(s1);
   write('Nhap xau s2: '); readln(s2);
   s:=s2;
   insert(s1,s,5);
   write('Xau sau khi chen la: ',s);
   writeln;
   write('Vi tri xuat hien cua s2 la: ',pos(s2,s1));
   for i:=1 to length(s1) do
   while s1[i]=' ' do delete(s1,i,1);
   writeln;
   write('Xau sau khi xoa dau cach la: ',s1);
 readln
end.