Разработка многомодульных программ с выделением процедур

uses myMatrix;
begin
  var a : array [,] of Integer;
  try
    a := randomMatrix(ReadInteger('строк:'),ReadInteger('колонок:'));
    if a.Length=0 then raise new Exception;
  except
    WriteLn('Значения строк и колонок должно быть натуральное число!'); Halt;
  end;
  printMatrix(a, 'Исходная матрица:');
  var E := ReadInteger('величина E =');
  if lessInRow(a, 0, E) = a.GetLength(0) then
    begin
      a := deleteFirstRow(a);
      printMatrix(a, 'Матрица с удалённой первой строкой:');
    end
  else
    begin
      Write('Число элементов меньших Е в каждой строке: ');
      var maxRow := 0;
      for var row := 0 to a.GetLength(0)-1 do
        begin
          print(lessInRow(a, row, E)); maxRow := max(maxRow, lessInRow(a, row, E));
        end;
      WriteLn(NewLine, 'Максимальное число таких элементов в строке ' + maxRow);
    end;
end.

unit myMatrix;
 
function randomMatrix(rows, cols : Integer) := MatrRandomInteger(rows,cols,-9,+9);
 
procedure printMatrix(a : array [,] of Integer; msg : String := '');
begin
  if msg.Length > 0 then WriteLn(msg); a.Println;
end;
 
function lessInRow(a : array [,] of Integer; rowIndex, Value : Integer) := a.Row(rowIndex).Count(x->x<Value);
 
function deleteFirstRow(a : array [,] of Integer) := MatrGen(a.GetLength(0)-1, a.GetLength(1), (rows,cols)->a.Rows.Where((r,i)->i>0).ElementAt(rows).ElementAt(cols));
 
end.