... không tìm thấy thì hàm trả về kết quả là 0.Var St, Obj: String[20];BeginSt := ‘TURBO PASCAL 7.0’;Obj := PASCAL ;Write(Pos(Obj, St));End.2.Truy Xuất Từng Ký Tự Trong ChuỗiTa có thể truy xuất ... dụ dưới đây.A := [2 .. 9];B := [7 .. 15];Khi đó A + B = [2 .. 15];Lưu ý: A + B = B + Ac. Phép giaoGiao của hai tập hợp A và B là một tập hợp ký hiệu A * B có các phần tử vừa của tập hợp A vừa ... trích từ chuỗi St, chéptừ ví trí Pos và chép n ký tự.Var St, Obj: String[20];BeginSt := ‘TURBO PASCAL 7.0’;Obj := Copy(st,7,6);Write(Obj);End.l. Hàm Concat(St1, St2, St3,…Stn)Cho kết quả là một...