procedure TForm1.Button1Click(Sender: TObject);
var
 S:String;
 Len,i:integer;
begin
S:='   4 -8 5 10  6 7  0 1  9   2-11 3';
i:=1;
while(true) do
 begin
  Len:=Length(S);
  if ((S[i]=' ')   or (S[i]='-')) and
     ((S[i 1]=' ') or (S[i 1]='-'))
   then begin
    Delete(S,i,1);
   end
   else i:=i 1;
  if (i=Len) then break;
 end;
ShowMessage(s);
end;

 
//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
#include 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender)
{
    String S;
    int i,Len;        S="   4 -8 5 10  6 7  0 1  9   2-11 3";
    i=1;
    while(1)
    {
        Len=S.Length();
        if (((S[i]==' ')||(S[i]=='-')) && ((S[i 1]==' ') || (S[i 1]=='-')))
            S.Delete(i,1);
        else
            i=i 1;
        if (i==Len)
            break;
    }
    ShowMessage(S);    }