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.
