... 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 ... quả này giống như phép cộng chuỗi.Trang 6987987987Kết quả kiểu chuỗiX=798.798Code = 0X = 0Code = 4PASCAL Tổ Tin Học - Trường CĐSP Bến Trem. Hàm Pos(Obj, St)Cho kết quả là một vị trí đầu tiên củ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...