procedure chuanhoa(var s : string); var i : integer; begin while s[1]=' ' do delete(s,1,1); while s[length(s)]=' ' do delete(s,length(s),1); for i := length(s) downto 2 do if (s[i]=' ') and (s[i-1]=' ') then delete(s,i,1); end Mục đích của chương trình trên là gì? a. Xóa các dấu cách. b. Xóa các dấu cách đầu câu. c. Xóa các dấu cách thừa. d. Xóa các dấu cách cuối câu.