char st1[]="11 22 33 44 555 666 777 888";
     puts(st1); 
     for (int i=1;i<strlen(st1); )  
     if (st1[i-1]!=' ') 
     {   
        st1[i-1]=st1[i];
        i++;
            }
        else 
        { i+=2;
             st1[i-1]=st1[i]; 
              }            

     puts(st1);
getchar();

Var
 S:String;
 i,j:Byte;
Begin
 S:='Long ago there were three pigs';
 Writeln(S);
 For i:=1 to Length(S)-1 do S[i]:=S[i+1];
 S[Length(S)]:=' ';
 For i:=1 to Length(S) do
  If S[i]=' ' then
   begin
    for j:=i+1 to Length(S)-1 do S[j]:=S[j+1];
    S[Length(S)]:=' ';
   end;
 Writeln(S);
 Readln;
End.