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

#include <bits/stdc++.h>

using namespace std;

int main()
{
    system("chcp 1251");
    string s;
    getline(cin, s);
    int k = 0;
    s.insert(0, 1, ' ');
    vector<string> res;
    for(int i = s.size() - 1; i >= 0; --i){
        if(s[i] != ' '){
            k = 1;
            while(s[--i] != ' ')
                ++k;
        }
        res.push_back(s.substr(i + 1, k));
    }
    for(auto i : res)
        cout << i << " ";
    return 0;
}

program String50;
var
 S,S2:String;
 i,poz:integer;
 
 
begin
  Write('S: ');
  Readln(S);
 
  i:=1;
  S2:='';
  poz:=pos(' ',S);
  While (poz<>0) do
   begin
    if poz=1 then delete(S,1,1);
    if poz>1 then
     begin
      S2:=copy(S,1,poz-1)+' '+S2;
      Delete(S,1,poz);
     end;
    poz:=pos(' ',S);
   end;
  S2:=S+' '+S2;
  Writeln(S2);
end.