Сортировка строк матрицы

const
m=4;
 n=4;
type
massiv = array [1..m+1,1..n] of integer;
 
var
a:massiv;
 i,j,x,b,u:integer;
 flag:boolean;
 
begin
 
  randomize; //Генератор случайных чисел
for I := 1 to m do //Заполнение матрицы случайными числами от -50 до 50
for j := 1 to n do
 
  begin
 
    a[i,j]:= random(100)-50;
end;
for i := 1 to m do //Вывод полученной матрицы на экран
begin
for j := 1 to n do
write(a[i,j]:5);
writeln;
  end;
 writeln;
 x:=0;
  for j := 1 to n do
 
  begin
 
    for I := 1 to m do
 x:=x+a[i,j];//Подсчет сумм элементов столбцов и запись результата в последнюю строку массива
 a[m+1,j]:=x;
x:=0;
 
  end;
 
  for I := 1 to n do //Вывод полученных значений
write(a[m+1,i]:5);
 writeln;
 
   repeat
 
     Flag:=False;
for j := 1 to n-1 do
 
// если текущий больше следующего
 
     if a[m+1,j] > a[m+1,j+1] then // меняем их местами:
for b:=1 to m+1 do
 
     begin
 
       x := a[b,j];
 a[b,j] :=a[b,j+1];
a[b,j+1] := x;
Flag:=True
 
     End;
 
  Until Not Flag;
writeln;
for i := 1 to m do //Вывод полученной матрицы на экран
 
  begin
 
    for j := 1 to n do
 write(a[i,j]:5);
writeln;
 
  end;
 
  writeln;
for I := 1 to n do //Вывод полученных значений
write(a[m+1,i]:5);
 writeln;
 readln;
End.