... vao xau S: ’); readln(S);Write(‘Nhap vao xau S: ’); readln(S);ForFor i:= 1 i:= 1 ToTo length(S) length(S) DoDo upcase(S[i]); upcase(S[i]);Write( Xau da chuyen:’,S);Write( Xau ... vt, n)Insert(S1, S2, vt)Insert(S1, S2, vt)Delete(St, vt, n)Delete(St, vt, n)Pos(S1, S2)Pos(S1, S2)Length(S)Length(S)Upcase(ch)Upcase(ch)Các hàm và thủ tục xử lý xâu:...