[fuzz]

я бы сделал так:

Код:

var
  i, j, x, s: Integer;
  t: TStringList;
begin
  t:= TStringList.Create;
  t.Text:= StringReplace(stroka, ',', #13#10, [rfReplaceAll]);
  i:= 0; j:= 0;
  s:= Length(massiv[i]) + 1;
  for x := 1 to t.Count - 1 do
     begin
       if x mod s= 0 then
       begin
         s:= Length(massiv[i]) + 1;
         inc(i);
         i:= 0;
       end;
       massiv2[i,j]:= t[x];
       inc(j);
     end;
   t.Free;
end;