Вставить в матрицу строку из нулей после первой из строк, количество нулей в которой равно заданному числу

type massiv=array [,]of integer;
var a:massiv;
    n, m, i, j, k: integer;
begin
  write('Введите количество строк: ');
  readln(n);
  write('Введите количество столбцов: '); 
  readln(m);
  setlength(a,n,m);
  for i := 0 to n-1 do
    for j := 0 to m-1 do
    begin
      write('Введите ',j+1,' элемент ',i+1,' строки вашей матрицы: ');
      read(a[i,j]);
    end; 
  writeln('Исходный массив: ');
  for i := 0 to n-1 do
  begin
    for j:= 0 to m-1 do
      write(a[i, j]:4,' ');
      writeln;
  end;
  write('Введите k - количество нулей в строке: ');
  read(k);
  if (k<0) or (k=0) then 
    write('Ошибка ввода k!')
  else

begin
  var matrix := MatrRandom(5, 5, -5, 5).Println;
  
  var строки_матрицы := matrix.Rows.ToArray;
  var заданное_число := ReadInteger;
  
  var нужная_строка := строки_матрицы.FirstOrDefault(x -> x.Count(y -> y = 0) = заданное_число);
  
  if (нужная_строка <> nil) then
  begin
    var index := строки_матрицы.IndexOf(нужная_строка);
    if index < строки_матрицы.Length - 1 then
      matrix.SetRow(index + 1, new integer[matrix.ColCount]);
  end;
  
  matrix.Println
end.

begin
  var matrix := MatrRandom(5, 5, -5, 5).Println;
  
  var строки_матрицы := matrix.Rows.ToArray;
  var заданное_число := ReadInteger;
  
  var нужная_строка := строки_матрицы.FirstOrDefault(x -> x.Count(y -> y = 0) = заданное_число);
  
  if (нужная_строка <> nil) then
  begin
    var index := строки_матрицы.IndexOf(нужная_строка);
    
    if index = строки_матрицы.Length - 1 then
    begin
      var matrix2 := new integer[matrix.RowCount + 1, matrix.ColCount]; //возможно для копирования матрицы с расширением есть встроенная подпрограмма, если так, то я её не знаю
      for var i := 0 to matrix.RowCount - 1 do
        for var j := 0 to matrix.ColCount - 1 do
          matrix2[i, j] := matrix[i, j];
      matrix := matrix2;
    end;
    
    if index < строки_матрицы.Length then
      matrix.SetRow(index + 1, new integer[matrix.ColCount])
  end;
  
  matrix.Println
end.