перевести на c++ с паскаля

for(int i=1;i<=strlen(s);i++)
 {
 }

for(int j=strlen(sl);j>=1;j--)
 {
 }

uses crt;
var
  i,j:Integer;
  s,sl,b:string;
begin
write ('Vvedite slovo ');
Readln(s);
sl:=' ';
s:=s+' ';
  for i:=1 to Length(s) do
  begin
  while s[i]<>' ' do
  begin
  sl:=sl+s[i];
  inc(i);
  end;
 
  for j:=length(sl) downto 1 do
  b:=b+sl[j];
  b:=b+' ';
  sl:='';
  if i>length(s) then i:=length(s);
  end;
  s:=b;
  writeln(s);
end.

#include <iostream>
#include <algorithm>
#include <string>
#include <sstream>
 
int main()
{
    std::string Str, NewStr;
    std::cout<<"Enter string:"<<std::endl;
    std::getline(std::cin, Str);
    std::istringstream ist(Str);
    while(ist>>Str)
    {
         std::reverse(Str.begin(), Str.end());
         NewStr += Str+" ";
    }
    std::cout<<"Reversed string:\n"<<NewStr<<std::endl;
    system("pause");
    return 0;
}

#include <iostream>
#include <string>
using namespace std;
 
int main()
{
 int i,j;
 string s,sl,b;
     cout<<"Vvedite slovo ";
     cin>> s;
     sl="";      // sl обнуляется
     s=s+' ';    // прибовляет пробел в конец строки
     for(int i=0;i<s.size();i++)     //
        {
          while (s[i]!=' ')             // пока s[i] не пробел
             {
                 sl=sl+s[i];            //отделяет слово от гл стр
                 i++;
  
             }
          for (int j=sl.size()-1;j>=0;j--)
  
            b=b+sl[j];
            b=b+' ';
            sl="";
             if (i>s.size())
             i=s.size();
  
        }
     s=b;
     cout<<s<<endl; 
     system("pause");
  }