Переставляя строки заданной матрицы, располагать их в соответствии с убыванием характеристик (сортировка вставкой)

program mtrx;
uses
  crt;
const
  Mmax = 100;  
  Nmax = 100; 
type
  TArr = array[1..Mmax] of real; 
  TMatr = array[1..Nmax] of TArr;
var
  M, N : byte;
  Mtr : TMatr;
  i, j : byte;
  a, b : real;  
procedure InitMatr(var a : TMatr; M,N : byte);
procedure InitArr(var a : TArr);
var j : byte;
begin
  for j := 1 to N do begin
   {write('a[',i,', ',j,'] = ');} 
   a[j] := random(50)-25+random; {readln(a[j]);}
  end; 
end;
var i : byte;
begin
  randomize;
  for i := 1 to M do InitArr(a[i]);
end;
procedure WriteArr(a : TArr; N : byte);
var i : byte;
begin
  for i := 1 to N do write(a[i]:9:2);
  writeln;
end;  
procedure WriteMatr(a : TMatr; M, N : byte);
var i : byte;
begin
  for i := 1 to M do begin
    WriteArr(a[i],N);
  end;
  writeln;
end;
function SumChetElem(c : TArr; N : byte) : real;
var i : byte;
    s : real;
begin
  s := 0;
  for i := 1 to N do 
   if (Trunc(c[i]) mod 2 = 0) and (c[i]>=a) and (c[i]<=b) then 
     s := s + c[i];
  SumChetElem := s; 
end;
procedure Sort(var a : TMatr; M, N : byte);
var i, j : byte;
    x : TArr;
begin
  for i := 2 to M do
    if SumChetElem(a[i-1],N)>SumChetElem(a[i],N) then begin
      x := a[i];
      j := i - 1;
      while (j>0) and (SumChetElem(a[j],N)>SumChetElem(x,N)) do begin
        a[j+1] := a[j];
        dec(j); 
      end;   
      a[j+1] := x;    
    end;
end;
begin
  clrscr;
  repeat
    write('Количество строк M = ');readln(M);
  until M<=Mmax;
  repeat  
    write('Количество столбцов N = ');readln(N);
  until N<=Nmax;
  InitMatr(Mtr,M,N);
  clrscr;
  writeln('Исходная матрица ',M,'*',N,' : ');
  WriteMatr(Mtr,M,N);
  repeat
   write('Границы диапозона [a,b] (через пробел) : '); 
   readln(a,b);
  until a<=b;
  Sort(Mtr,M,N);
  writeln('Исходная матрица после сортировки : ');
  WriteMatr(Mtr,M,N); 
  readln;
end.