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

unit func_matrix;
 
 
interface
 
 const
 
  N=5;
 
 type
 
  TMatrix=array [1..N,1..N]  of integer;
  
  TLinfo=record
   line:1..N;
   count:integer;
  end;
  
  TZElements=array [1..N] of TLinfo;
  
 procedure ReadMatrix(const f:text;var Matrix:TMatrix);
 procedure ChangeMatrix(const f:text;var Matrix:TMatrix);
 
implementation
 
procedure ReadMatrix;
 var
  i,j:integer;
begin
 for i:=1 to N do begin
 for j:=1 to N do read(f,Matrix[i,j]);
                  readln(f);
                  end; 
end;
 
procedure ChangeMatrix;
 
 var
 
  ZE:TZElements;
  i,j:integer;
 
 procedure ScanLines(const Matrix:TMatrix;var ZElements:TZElements);
  var
   i,j,count:integer;
 begin
  for i:=1 to N do begin 
                    ZElements[i].line:=i;
                    count:=0;
                    for j:=1 to N do
                     if Matrix[i,j]=0
                     then inc(count);
                    Zelements[i].count:=count;
                   end;
 end;
 
 procedure SortZE(left,right:integer);
 
  var
  
    l,r,Mid:integer;
    temp:TLinfo;
    
 begin
  l:=left;
  r:=right;
  Mid:=ZE[(l+r) div 2].count;
  repeat
   while ZE[l].count < Mid do inc(l);
   while ZE[r].count > Mid do dec(r);
   if l<=r then begin
                 temp:=ZE[l];
                 ZE[l]:=ZE[r];
                 ZE[r]:=temp;
                 inc(l);
                 dec(r);
                end;
  until l>=r;
  if left<r  then SortZE(left,r);
  if l<right then SortZE(l,right);
 end;
 
 procedure ShiftMatrix(var Matrix:TMatrix;const ZE:TZElements);
  var
  i,j,k:integer;
  temp:TMatrix;
 begin
  { generate }
  for i:=1 to N do begin
                    k:=Ze[i].line;
  for j:=1 to N do  temp[i,j]:=Matrix[k,j];
                   end;
  { swap }
  for i:=1 to N do 
  for j:=1 to N do Matrix[i,j]:=temp[i,j];
 end;
 
begin
{ change }
 ScanLines(Matrix,ZE);
 SortZE(1,N);
 ShiftMatrix(Matrix,ZE);
{ output }
 for i:=1 to N do begin
 for j:=1 to N do write(f,Matrix[i,j],' ');
                  writeln(f);
                  end;
end;
 
End.