Решение задачи String 57

#include <bits/stdc++.h>

using namespace std;

int main()
{

    system("chcp 1251");
    string s;
    getline(cin, s);
    int pos = s.find("  ");
    while(pos + 1){
        s.erase(pos, 1);
        pos = s.find("  ", pos - 1);
    }
    cout << s;
    return 0;
}

program String57;
var
 S:String;
 i:integer;
 
begin
  Write('S: ');
  Readln(S);
 
  i:=2;
  While (i<=length(S)) do
   begin
    if (s[i-1]=' ') and (s[i]=' ') then
     begin
      Delete(S,i,1);
      dec(i);
     end;
    inc(i);
   end;
  Writeln(S);
end.