[Drago56]

Помогите пожалуйста перевести из поскаля на си++

uses crt;
var
  s: string;
  i: integer;
  Begin
  writeln('Введите текст');
  ReadLn(s);
  i := 2;
  while i <= Length(s) do begin
    while ((s[i] <> '.') and (s[i] <> ' ')) do begin
      s[i] := chr(ord(s[i]) + 32);
      Inc(i);
      if i > Length(s) then break;
    end;
    if i > Length(s) then break;
    if s[i] = '.' then Inc(i);
    Inc(i);
  end;
  WriteLn(s);
  ReadLn;
end.