Viết chương trình nhập vào xâu. Xoá hết các kí tự trắng dư thừa có trong xâu. Mọi người giúp em với ạ!

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.

#include <bits/stdc++.h>

using namespace std;

string st;

int d,i;

int main()

{

getline(cin,st);

d=st.length();

for (i=0; i<=d-1; i++)

if ((st[i]==' ') and (st[i+1]=' ')) st.erase(i,1);

cout<<st;

return 0;

}