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

unit mtx;
interface
type
  TMatrix = array of array of Integer;
  TLessFunc = function (a, b: Integer): Boolean;
 
procedure mVCat(const a, b: TMatrix; var r: TMatrix);
procedure mHCat(const a, b: TMatrix; var r: TMatrix);
procedure mVSort(var a: TMatrix; IsLess: TLessFunc);
procedure mHSort(var a: TMatrix; IsLess: TLessFunc);
 
function Less(a, b: Integer): Boolean;
function More(a, b: Integer): Boolean;
 
implementation
function Less(a, b: Integer): Boolean; begin Less:=a<b end;
function More(a, b: Integer): Boolean; begin More:=a>b end;
procedure mVCat(const a, b: TMatrix; var r: TMatrix);
var i, j: Integer;
begin
  if High(a[0]) <> High(b[0]) then RunError(201);
  SetLength(r, High(a)+High(b)+2, High(a[0])+1);
  for i:=0 to High(a) do for j:=0 to High(a[0]) do r[i,j]:=a[i,j];
  for i:=0 to High(b) do for j:=0 to High(b[0]) do r[i+High(a)+1,j]:=b[i,j];
end;
procedure mHCat(const a, b: TMatrix; var r: TMatrix);
var i, j: Integer;
begin
  if High(a) <> High(b) then RunError(201);
  SetLength(r, High(a)+1, High(a[0])+High(b[0])+2);
  for i:=0 to High(a) do for j:=0 to High(a[0]) do r[i,j]:=a[i,j];
  for i:=0 to High(b) do for j:=0 to High(b[0]) do r[i,j+High(a[0])+1]:=b[i,j];
end;
procedure mVSort(var a: TMatrix; IsLess: TLessFunc);
var j: Integer;
  procedure VSort;
  var i, n, nn: Integer; t: Integer;
  begin
    nn:=High(a);
    repeat
      n:=nn; nn:=0;
      for i:=0 to n-1 do
        if IsLess(a[i+1,j],a[i,j]) then begin
          t:=a[i+1,j]; a[i+1,j]:=a[i,j]; a[i,j]:=t; nn:=i;
        end;
    until nn=0;
  end;
begin
  for j:=0 to High(a[0]) do VSort;
end;
procedure mHSort(var a: TMatrix; IsLess: TLessFunc);
var i: Integer;
  procedure HSort;
  var j, n, nn: Integer; t: Integer;
  begin
    nn:=High(a[0]);
    repeat
      n:=nn; nn:=0;
      for j:=0 to n-1 do
        if IsLess(a[i,j+1],a[i,j]) then begin
          t:=a[i,j+1]; a[i,j+1]:=a[i,j]; a[i,j]:=t; nn:=j;
        end;
    until nn=0;
  end;
begin
  for i:=0 to High(a) do HSort;
end;
procedure mWrite(const a: TMatrix; const s: String; W: Integer = 7);
var i, j: Integer;
begin
  if s<>'' then WriteLn(s);
  for i:=0 to High(a) do begin
    for j:=0 to High(a[0]) do Write(' ',a[i,j]:W); WriteLn;
  end;
end;
procedure mGen(var a: TMatrix; r, c, u, v: Integer);
var i, j: Integer;
begin
  SetLength(a, r, c);
  for i:=0 to r-1 do for j:=0 to c-1 do a[i,j]:=u+Random(v);
end;
 
end.

var a, b, r: TMatrix;
begin
  Randomize;
  mGen(a,5,5,0,100); mWrite(a,'A =');
  mGen(b,5,5,0,100); mWrite(b,'B =');
  mVCat(a,b,r); mHSort(r,@Less); mWrite(r,'A/B =');
  mHCat(a,b,r); mVSort(r,@More); mWrite(r,'A|B =');
  Write('Press Enter...'); ReadLn;
end.