[Abigail]

задача: записать текст в матрицу 6х7 по столбцам и вывести полученный текст построчно.может кто помочь?

[lmikle]

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

типа:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

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;

[Abigail]

спасибо большое )

[lmikle]

You are wellcome!