Отредактируйте заданное предложение, удаляя из него все лишние пробелы — Pascal(Паскаль)/C++(Си)

#include <iostream>
#include <algorithm>
#include <string>
 
int main()
{
    std::string str{"show     me the   money"};
    str.erase(std::unique(str.begin(), str.end(), [](auto a, auto b) {
        return a == ' ' && b == ' ';
    }), str.end());
    std::cout << str << std::endl;
    return 0;
}

Var
  s: String;
BEGIN
Writeln('Введите предложение: ');
Readln(s);
While s[1]=' ' do   {удаляем начальные пробелы}
Delete(s,1,1);
While Pos('  ',s)>0 do  {удаляем лишние между словами}
Delete(s,Pos('  ',s),1);
While s[Length(s)]=' ' do {удаляем конечные пробелы}
Delete(s,Length(s),1);
Writeln('Полученная строка:');
Writeln(s);
END.