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

procedure TForm2.Button1Click(Sender: TObject);
   var
  i,j: integer;
begin
randomize;                                //   èíèöèàëèçàöèÿ ñ÷åò÷èêà ñëó÷àéíûõ ÷èñåë
n:=StrToInt(Edit1.Text);                  // êîë-âî ñòðîê
m:=StrToInt(Edit2.Text);                  //  êîë-âî ñòîëáöîâ
SetLength(a,n,m);                         // ïàðàìåòðû ìàññèâà
  for i:=0 to n-1 do                      // ñ÷åò÷èê ñòðîê
    for j:=0 to m-1 do                    // ñ÷åò÷èê ñòîëáöîâ
      a[i,j]:=Round(Sin(Random(1000))*1000); // ïðèñâîåíèå ñëó÷àéíîãî ÷èñëà îò -1000 äî 1000
StringGrid1.RowCount:=n+1;                // êîë-âî ñòðîê â òàáëèöå
StringGrid1.ColCount:=m+1;                // êîë-âî ñòîëáöîâ â òàáëèöå
  with StringGrid1 do                     // ïîçâîëÿåò êàæäûé ðàç íå îáðàùàòüñÿ ê èìåíè êîìïîíåíòà
    begin
    i:=0;                                 // ïåðâàÿ ñòðîêà
    for j:=1 to RowCount do               // öèêë äëÿ âûâîäà íîìåðîâ ñòðîê
    Cells[i,j]:=InttoStr(j);
    j:=0;                                 // ïåðâûé ñòîëáåö
    for i:=1 to ColCount do               // öèêë äëÿ âûâîäà íîìåðîâ ñòîëáöîâ
    Cells[i,j]:=IntToStr(i);
    end;
  with StringGrid1 do
    for i:=1 to n do                      //  öèêëû äëÿ âûâîäà ýëåìåíòîâ
      for j:=1 to m do                    //  ìàññèâà â òàáëèöó
      Cells[j,i]:=IntToStr(a[i-1,j-1]);
   end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: integer;
begin
  randomize;                   //   инициализация счетчика случайных чисел
  n:=StrToInt(Edit1.Text);     // кол-во строк
  m:=StrToInt(Edit2.Text);     //  кол-во столбцов
  SetLength(a,n,m);            // параметры массива
  for i:=0 to n-1 do           // счетчик строк
  for j:=0 to m-1 do           // счетчик столбцов
  a[i,j]:=Random(2001)-1000;   // присвоение случайного числа от -1000 до 1000
 
  with StringGrid1 do          // позволяет каждый раз не обращаться к имени компонента
  begin
    RowCount:=n+1;             // кол-во строк в таблице
    ColCount:=m+1;             // кол-во столбцов в таблице
 
    for j:=1 to RowCount do    // цикл для вывода номеров строк
    Cells[0,j]:=InttoStr(j);   // в первом столбце
 
    for i:=1 to ColCount do    // цикл для вывода номеров столбцов
    Cells[i,0]:=IntToStr(i);   // в первой строке
 
    for i:=1 to n do           //  циклы для вывода элементов
    for j:=1 to m do           //  массива в таблицу
    Cells[j,i]:=IntToStr(a[i-1,j-1]);
   end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  i,j,k,n1: integer;
begin
  //Вставка первой строки после каждой чётной строки
  //Посчитаем, сколько строк будем вставлять и увеличим размерность массива
  n1:=(n Div 2)+n;
  SetLength(a,n1,m);        // Новый размер массива
  For i:=n-1 DownTo 2 Do    // Будем двигаться от конца к началу массива
  If (i Mod 2)=0 Then       // Только если строка чётная если считать с 0
  Begin                     // (вставляем перед нечётными считая с 1)
    //Сдвинем на одну строку все строки, начиная с этой
    For j:=n1-2 DownTo i Do // сдвигаем начиная с последней строки
    For k:=0 To m-1 Do
    a[j+1,k]:=a[j,k];
    //Запишем первую строку в место вставки
    For k:=0 To m-1 Do
    a[i,k]:=a[1,k];
  End;
 
  n:=n1;
  //Запишем массив в StringGrid
  with StringGrid1 do          // позволяет каждый раз не обращаться к имени компонента
  begin
    RowCount:=n+1;             // новое кол-во строк в таблице
 
    for j:=1 to RowCount do    // цикл для вывода номеров строк
    Cells[0,j]:=InttoStr(j);   // в первом столбце
 
    for i:=1 to n do           //  циклы для вывода элементов
    for j:=1 to m do           //  массива в таблицу
    Cells[j,i]:=IntToStr(a[i-1,j-1]);
   end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  i,j,k : integer;
begin
  //Взаимозамена средних столбцов
  k:=(n Div 2)-1;    //Номер первого из столбцов, которые нужно обменять
  For i:=0 To n-1 Do //Двигаемся по строкам
  Begin //Меняем 2 значения в строке в нужных столбцах
    j:=a[i,k]; //Временно запоминаем, чтобы не затереть
    a[i,k]:=a[i,k+1];
    a[i,k+1]:=j;
    //Сразу поменяем в таблице
    StringGrid1.Cells[k+2,i+1]:=StringGrid1.Cells[k+1,i+1];
    StringGrid1.Cells[k+1,i+1]:=IntToStr(j);
  End;
end;

var
  Form1: TForm1;
  a:array of array of integer;
  m,n:integer;
implementation