cách xóa các khoảng trắng thừa
https://www.uit.edu.vn/data/gtrinh/TH010/Htm/Bai11_3.htm
Xóa các ký tự trắng ở đầu chuỗi :
Ðể xóa một ký tự trắng ở đầu của chuỗi St, ta dùng lệnh:
If St[1]=#32 then Delete(St,1,1);
Muốn xóa hết các ký tự trắng ở đầu chuỗi ta dùng lệnh:
While St[1]=#32 do...