(Delphi) разделение одного массива на несколько других

[Semiotica]

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

[ZoRT]

т.е у вас есть одномерный массив строк (размерность n), а вам его преобразовать в двумерный размерностью [n/3][3]?

[Semiotica]

да, получается так..
вообще задача в составление экзаменационных билетов.. из списка вопросов.. нужно в 1 билете 3 вопроса..

вот сама программа, что имеется..

[IQDDD]

Имя "Цикл" вам о чём-нибудь говорит?

[Semiotica]

говорит, но я не могу понять как его осуществить

[ZoRT]

приблизительно так, там уже сам смотри.

procedure TForm1.Button3Click(Sender: TObject);
var a: array of array of string;
    i, j, c: integer;
begin
  Setlength(a,Memo1.Lines.Count div 3, 3);
  c:=0;
  for i := 0 to Memo1.Lines.Count div 3 - 1 do
    for j := 0 to 2 do
      begin
        a[i][j]:= Memo1.Lines[c];
        inc(c);
      end;
end;

ps: там будут выполняться лишние операции, например эл-т массива [7][1], [7][2] будут так же заполняться(пустой строкой)
ps ps: и массив м.б. с меньшими значениями надо было инициализировать, я точно не знаю как тут..)))

[Semiotica]

ZoRT
, спасибо большое за помощь)