Простейший анализатор текста

[Gigabit]

Зачем вы заморачиваетесь? Масив здесь вобще не к месту.
Cлишком много с ним возьни.
Для выполнения этой задачи вам нужны две строки -
1я собственно та которая проверяется
и 2я во вторую впишем символы которые там могут использоватся
первые два символа второй строки будут озанчать первые символы слов остальные будут означать допустимые символы, этим самым вы оптимизируете код.
Доступ к элементам строк происходит также как к элементам масива

stroka[N] = Нный элемент строки

лишние пробелы пропускаем в цикле

        while (stroka[K]=#32)or(k=length(stroka)) do
        begin
        inc(K);
        end;

Полный код писать не буду нет под рукой дельфы для проверки.
Просто подумайте в этом напровлении

[Fireleo]

Сообщение от Marsel737

  While S2<>'' do
  Begin
    While S2[1] = ' ' do Delete(S2,1,1);
    If S2<>'' then
    Begin
      SetLength(Arr,Length(Arr)+1);
      Arr[Length(Arr) - 1] := Copy(S2,1,Pos(' ',S2));
    End;
  End;
end;

Если не ошибаюсь, то после копирования, слова в массив, стоит его удалить из исходной строки

Arr[Length(Arr) - 1] := Copy(S2,1,Pos(' ',S2));
Delete(S2,1,Pos(' ',S2));

[Utkin]

Сообщение от TwiX

SetLength(Arr,0);//массивчик из ShortString;

Из нуля элементов?)

Этот код правильный. Я всегда инициализирую массивы таким образом.

[Stilet]

А я всегда вместо динмассива пользую классы TList, TStringList и прочие.