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.
