Отсортировать строки двумерного массива по возрастанию по первому элементу- Pascal(Паскаль)

например массив
3 9 6 6 1
1 0 6 7 1
8 2 3 0 9
0 1 2 3 4
3 6 1 7 1

должен получиться
0 1 2 3 4
1 0 6 7 1
3 9 6 6 1
3 6 1 7 1
8 2 3 0 9

program massiv;
var i,k,j,c,N,M:integer;
mass: array[1..20,1..20] of integer;
 
begin
 randomize;
 writeln('Vvedite kolichestvo strok');
 readln(N);
 writeln('Vvedite kolichestvo stolbcov');
 readln(M);
 writeln('');
 writeln('Massiv');
 writeln('');
 for i:=1 to N do
 begin
  for k:=1 to M do
  begin
   mass[i,k]:=random(25);
   write(mass[i,k]:4);
  end;
  writeln(' ');
 end;
 
 j:=1;
 writeln;
 while j>0 do
 begin
  j:=0;
  for i:=2 to N do
   if((mass[i,1])<(mass[i-1,1])) then
   begin
    for k:=1 to M do
    begin
     c:=mass[i,k];
     mass[i,k]:=mass[i-1,k];
     mass[i-1,k]:=c;
    end;
    inc(j);
   end;
 end;
 
for i:=1 to N do
begin
 for k:=1 to M do
  begin
  write(mass[i,k]:4);
  end;
  writeln;
end
end.