SoloCodigo

hola necesito q me ayuden a pasarlo a c++


program DELBLANK;
uses wincrt;
const
 N=70;
type
 A=string[N];
var
 FRASE,FRASE1:A;
 CB,I,J:integer;
begin
 readln(FRASE);
 FRASE1:=FRASE;
 if (pos(' ',FRASE)<>0) then
 begin
  FRASE1:='';
  repeat
   I:=pos(' ',FRASE);
   if (I>1) then
    FRASE1:=FRASE1 + copy(FRASE,1,I);
   CB:=0;
   J:=I;
   while (FRASE[J]=' ') do
   begin
    J:=J+1;
    CB:=CB+1;
   end;
   delete(FRASE,1,J-1);
  until (pos(' ',FRASE)=0);
 end;
 FRASE1:=FRASE1 + copy(FRASE,1,I);
 writeln(FRASE1);
 writeln(pos(' ',FRASE));
end.

hola necesito convertir este programa a c++  graxias!!


Program MENU;
uses wincrt;
var
 OPCIONP,OPCIONS:char;
  NE,A,I,B,E,IT:integer;
  NUMT,NUM,POT,D:longint;
  P:real;
begin
 repeat
  clrscr;
  writeln('   Menu Principal');
  writeln('1. Calcular Factorial');
  writeln('2. Calcular Potencia');
  writeln('3. Conversiones');
  writeln('4. Salir del Programa');
  write('Seleccione su opcion:');
  readln(OPCIONP);
  case OPCIONP of
   '1':Begin
             A:=1;
             writeln('Factorial de un numero');
             write('Introduzca el numero que va a evaluar:  ');
              readln(NE);
               for I:=1 to NE do
               begin
                A:=A*NE;
                 NE:=NE-1;
                 end;
                 writeln('El factorial es:',A);
                 writeln('presione una tecla para continuar');
                 readkey;
          end;
   '2':Begin
          writeln('introduzca Base');
          readln(b);
          writeln('introduzca Exponente');
          readln(e);
           if (e>=0) then
            begin
              P:=1;
              For IT:=1 to e do
             begin
             p:=p*b;
              end;
              end;
               writeln('la potencia positiva es ',p:0:0);
               readkey;
         end;

   '3':Begin
        repeat
         clrscr;
         writeln('   Menu Conversiones');
         writeln('1. binario-decimal');
         writeln('2. binario-octal');
         writeln('3. decimal-octal');
         writeln('4. volver al menu principal');
         write('Seleccione su opcion:');
         readln(OPCIONS);
         case OPCIONS of
          '1':Begin
               write('ingrese el numero binario:');
                readln(NUM);
                 NUMT:=0;
                 POT:=1;
                repeat
                 D:=NUM mod 10;
                 NUMT:=NUMT + D*POT;
                 NUM:=NUM div 10;
                 POT:=POT*2;
                 until NUM=0;
                writeln('el equivalente decimal es:',NUMT);
                writeln('presione una tecla para continuar');
                readkey;
               end;
          '2':Begin
               write('ingrese el numero binario:');
                readln(NUM);
                  NUMT:=0;
                  POT:=1;
                repeat
                 D:=NUM mod 8;
                 NUMT:=NUMT + D*POT;
                 NUM:=NUM div 8;
                 POT:=POT*2;
                  until NUM=0;
               writeln('el equivalente octal es:',NUMT);
               writeln('presione una tecla para continuar');
               readkey;
              end;
          '3':Begin
               Writeln('Estoy en la opcion 3');
               writeln('presione una tecla para continuar');
               readkey;
               write('ingrese el numero decimal:');
                readln(NUM);
                 NUMT:=0;
                  POT:=1;
                repeat
                 D:=NUM mod 8;
                 NUMT:=NUMT + D*POT;
                 NUM:=NUM div 8;
                 POT:=POT*8
                 until NUM=0;
               writeln('el equivalente octal es:',NUMT);
              end;
          '4':Begin
               Writeln('Volviendo al menu principal');
               writeln('presione una tecla para continuar');
               readkey;
              end;
           else
              Begin
               Writeln('Error en la seleccion');
               writeln('presione una tecla para continuar');
               readkey;
             end;
         end;
        until OPCIONS='4';
       end;
   '4':Begin
        Writeln('Saliendo del programa');
        writeln('presione una tecla para continuar');
        readkey;
       end;
   else
       Begin
        Writeln('Error en la seleccion');
        writeln('presione una tecla para continuar');
        readkey;
       end;
  end;
 until OPCIONP='4';
 donewincrt;
end.

porfa ayudame a corregirlo o algo parecido!! es que lo necesito urgente por favor!!