Преобразование текста

[konkonych]

Здрасте !!! Помогите решить проблемку: есть строка вида "Х1 Х2 Х3 Х4 и т.д." необходимо получить матрицу вида:
х1
Х1 х2
Х1 Х2 х3 и т.д.

[Sazary]

А в чем, собственно, проблема? Свои мысли-то есть?

[XuTpbIu]

Только тут недавно функциюб написал Она разбивает строку на слова и заносит их в массив

type
TWordArray = Array of String;

var
  AllText: Array of TWordArray;

procedure StringToWords(SS: String; var WordArray: TWordArray);
var
  S, TmpStr: String;
begin
  SetLength(WordArray, 0);
  S := SS;
	While Pos(' ', S) <> 0 do
  begin
    TmpStr := Copy(S, 1, Pos(' ', S) - 1);
    SetLength(WordArray, Length(WordArray) + 1);
    WordArray[High(WordArray)] := TmpStr;
    Delete(S, 1, Pos(' ', S));
  end;
  if S <> '' then
  SetLength(WordArray, Length(WordArray) + 1);
    WordArray[High(WordArray)] := S;
end;

А дальше дело техники

[konkonych]

Всем большое спасибо!!! Мысли есть, но ток мысли.