Упорядочьте строки матрицы по возрастанию их величин. (Подпрограммы)

uses crt;
type matrix=array [1..50,1..50] of integer;
procedure Udal(var n,m:integer;var a:matrix);
var i,j,k,t,p:integer;
begin
{Udalenie stroki s 0}
i:=1;
while i<=n do
   begin
     k:=0;
     for j:=1 to m do
     if a[i,j]=0 then k:=k+1;
     if k=m then
        begin
          for t:=1 to m do
          for p:=i to n-1 do
          a[p,t]:=a[p+1,t];
          n:=n-1;
        end
     else i:=i+1;
   end;
{Udalenie stolbca s 0}
j:=1;
while j<=m do
   begin
     k:=0;
     for i:=1 to n do
     if a[i,j]=0 then k:=k+1;
     if k=n then
        begin
          for t:=1 to n do
          for p:=j to m-1 do
          a[t,p]:=a[t,p+1];
          m:=m-1;
        end
     else j:=j+1;
  end;
end;
var n,m,i,j:integer;
    a:matrix;
begin
clrscr;
write('Количество строк n=');readln(n);
write('Количество столбцов m=');readln(m);
Writeln('Введите ',n*m,' элементов матрицы:');
For i:=1 to n do
For j:=1 to m do
read(a[i,j]);
readln;
clrscr;
Writeln('Исходная матрица:');
for i:=1 to n do
   begin
     for j:=1 to m do
     write(a[i,j]:4);
     writeln;
   end;
Udal(n,m,a);
writeln('Результат:');
for i:=1 to n do
   begin
    for j:=1 to m do
    write(a[i,j]:4);
    writeln;
   end;
readln
end.

uses crt;
const nmax=20;
type matr=array[1..nmax,1..nmax] of integer;
procedure Vvod(var mt:matr;var x,y:byte);
var i,j:byte;
begin
{создаем матрицу}
write('Количество строк = ');
readln(x);
write('Количество столбцов = ');
readln(y);
for i:=1 to x do
for j:=1 to y do
mt[i,j]:=random(20);
end;
procedure Summ(var mt:matr;x:byte;y:byte);
var i,j:byte;
    sm:integer;
begin
{вычисление сумм в строках и запись их в дополнительный столбец}
for i:=1 to x do
 begin
  sm:=0;
  for j:=1 to y do
  sm:=sm+mt[i,j];
  mt[i,y+1]:=sm;
 end;
end;
procedure Sort(var mt:matr;x,y:byte);
var i,j,l:byte;
    b:integer;
begin
{перестановка строк по неубыванию сумм(по последнему столбцу)}
for i:=1 to x-1 do
for l:=i+1 to x do
if mt[i,y+1]>mt[l,y+1] then
for j:=1 to y+1 do
 begin
  b:=mt[i,j];
  mt[i,j]:=mt[l,j];
  mt[l,j]:=b;
 end;
end;
procedure Vyvod(var mt:matr;x,y:byte);
var i,j:byte;
begin
{вывод матрицы на экран}
writeln('Сумма':(y*5+8));
for i:=1 to x do
 begin
  for j:=1 to y+1 do
  if j=y+1 then write(mt[i,j]:8)
  else write(mt[i,j]:5);
  writeln;
 end;
end;
 
var a:matr;
    n,m,i,j,l:byte;
    sm,b:real;
begin
clrscr;
randomize;
writeln('Исходный массив:');
Vvod(a,n,m);
Summ(a,n,m);
Vyvod(a,n,m);
Sort(a,n,m);
writeln('Строки по неубыванию сумм:');
Vyvod(a,n,m);
readln
end.