[SerginhoLD]

ну наверно вот это

Код:

1	Idx := Pos(' ',S);

надо тоже внуть засунуть

Код:

1 2 3 4 5 6

Begin   SetLength(A,Length(A)+1);   A[High(A)] := Copy(S,1,Idx-1);   S := Copy(S,Idx+1,Length(S));   <font color="DarkOrange">Idx := Pos(' ',S);</font> End;