Вставка строк в двумерный массив

[Vladimir_0]

Доброго времени суток! Необходимо вставить после каждой нечетной строки вставить строку, номер которой введен в программе. Собственно подскажите, что не так. Заранее благодарен.

procedure TForm1.Button6Click(Sender: TObject);
var
b, c: array of array of integer;
i, j, k, t, n1: integer;
j1: integer;
begin
stringgrid2.ColCount:=m;    //столбцы
stringgrid2.RowCount:=n;    //строки
n1:=0;
t:=strtoint(edit6.text);    //кол-во столбцов
setlength(b, m, n);
 setlength(c,m,n1);
If (t>=1) and (t<=m) then     //если (i1>=1) and (i1<=m) то
begin
//------------копирования массива-------------------
   for j:=0 to n-1 do       //цикл копирования массива по строкам
      begin
         for i:=0 to m-1 do //цикл копирования массива по столбцам
            begin
            b[i,j]:=a[i,j]; // копируем a в p
            end;
      end;
//--------------------------------------------------
   begin
   n1:=(n div 2)+n;            //новая длина с нечетными строками
   j1:=0;
   setlength(b,m,n1);
stringgrid2.ColCount:=m;    //столбцы
stringgrid2.RowCount:=n1;    //строки
   for i:=0 to m-1 do //цикл копирования массива по столбцам
      begin
      for j:=0 to n-1 do       //цикл копирования массива по строкам
         begin
         if ((j+1)mod 2=1) then
            begin
            c[i,j1]:=a[i,j];
            stringgrid2.cells[i,j1]:=inttostr(c[i,j]);
            inc(j1);
            c[i,j1]:=a[i,t];
            stringgrid2.cells[i,j1]:=inttostr(c[i,t]);
            inc(j1);
            end
         else
            begin
            c[i,j1]:=a[i,j];
            stringgrid2.cells[i,j1]:=inttostr(c[i,j]);
            inc(j1);
            end;
         end;
      end;
      end;
end
else
showmessage('ошибка');
end;
 
 
end.

[Dvoishnik]

Сообщение от Vladimir_0

Собственно подскажите, что не так.

b, c: array of array of integer;

..............
n1:=0;
..........
setlength(c,m,n1); 
............
   n1:=(n div 2)+n;            //новая длина с нечетными строками
 
 ...............
            c[i,j1]:=a[i,j];
            ...................
            c[i,j1]:=a[i,t];
            stringgrid2.cells[i,j1]:=inttostr(c[i,t]);
          .......................
       
            c[i,j1]:=a[i,j];
            stringgrid2.cells[i,j1]:=inttostr(c[i,j]);
            .............

Мне кажется что то не так и этим массивом.