Вставить после каждой нечетной строки первую строку!

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;

var
  t: text; s1, s: string; b: boolean;
begin
  Assign(input,'input.txt'); Reset(input);
  ReadLn(s1); WriteLn(s1); b:=false;
  repeat
    b:=not b;
    if b then WriteLn(s1);
    ReadLn(s); WriteLn(s);
  until eof;
end.