Uses Crt;
Var n, byte
st: String;
Program Xoatrangthua, Var St:String);
Begin
{Xóa các ký tự trắng ở đầu xâu}
While St[1]=#20 Do Delete(St,1,1);
{Xóa các ký tự trắng ở cuối xâu}
While St[Length(St)]=#20 Do Delete(St,Length(St),1);
{Xóa các ký tự trắng ở giữa xâu}
While n (#20#20,St)<>0 Do Delete(St,POS(#20#20,St),1);
End.