[lmikle]

Ну и что тут сложного.
Матрица 6х7 -> двумерный массив.
Делишь текст на слова (ну или как там тебе делить надо) и загоняешь в список. Далее просто прописываешь в соответсвующие элементы. Т.е. у тебя будет 3 цикла, но один из них особенный.

типа:

Код:

var
  I, J, K : Integer;
  A : Array [1..6,1..7] Of String;
  L : TStringList; // <- здесь разбирый на слова текст.
begin
  // Здесь код разбиения на слова и складывания в список

  // Здесь "упаковываем" список в матрицу
  K := 0;
  For I := 1 To 7 Do
    For J := 1 To 6 Do
      Begin
         If K >= L.Count 
           Then A[J,I] := '' 
           Else
              Begin
                A[J,I] := L[K];
                Inc(K);
              End;
      End;
end;