Переформировать его таким образом, чтобы строки располагались по возрастанию их перв

program Project3;
const
n1=20;
m1=20;
 
 
type tarr = array [1..n1,1..m1] of integer;
 
 
procedure out_arr(n,m: integer; var x: Tarr);
var
  i,j: integer;
begin
  for i := 0 to n-1  do
  begin
   writeln;
 
  for j := 0 to m-1 do
 
    write(x[i,j]:5);
  end;
end;
 
procedure rand (n,m:integer;var mas:tarr);
var i,j:integer;
 begin
 randomize;
for i := 0 to n-1 do
 
 
for j := 0 to m-1 do
  mas[i,j]:=random(100);
 
 
 
end;
 
procedure swap_rows(var mas:tarr;i1,i2,r:integer);
var i,tmp: integer;
begin
 for i:= 1 to r do
   begin
     tmp:=mas[i1,i]; mas[i1,i]:=mas[i2,i];mas[i2,i]:=tmp;
   end;
 
end;
 
procedure booble_sort (k,r:integer;var mas:tarr);   // k - кол-во строк   , r -кол-во столбоцов
 
var i, tmp, n: Integer;
Sort: Boolean;
begin
Sort:=True;
n:=0;
while Sort do
  begin
   Sort:=False;
   for i:=1 to k-1-n do
     if mas[i,1]>mas[i+1,1] then
       begin
         Sort:=True;
         //tmp:=mas[i,1]; mas[i,1]:=mas[i+1,1]; mas[i+1,1]:=tmp;
         swap_rows(mas,i,i+1,r);
       end;
   n:=n+1;
  end;
end;
 
var p,p1:integer; x:tarr;
 
begin
 writeln('введите кол-во строк и столбцов');
 read(p);
 read(p1);
 rand(p,p1,x);
 out_arr(p,p1,x);
  booble_sort(p,p1,x);
 
  readln;
  readln;
end.