отсортировать строки матрицы по возрастанию первого элемента строки. Не работает код в Паскале. Что исправить?

[kyle16]

Задание: отсортировать строки матрицы по возрастанию первого элемента строки.
Вот код. Но он неполноценный. Как его исправить так чтоб он работал соответственно задаче?

const n = 50;
      m = 50;
type ar = array[1..n,1..m] of byte;     
var a,b: ar;     
    e,r,i,j,k,l,t: byte; 
Begin
  Readln(e,r);    
  randomize;
  for i:=1 to e do begin
    for j:=1 to r do begin
      a[i,j]:=random(100); 
      write(a[i,j]: 3);
    end;    
  writeln;
  end;
  writeln;
  for j:=1 to e do begin     
    b[i,j]:=a[j,1]; //первый столбец        
    write(b[i,j]:3);      
    writeln;  
  end;
  writeln;
 //сортировка первого столбца
  for l:=1 to e-1 do begin
    for k:=1 to e-l do begin
      if b[i,k] > b[i,k+1] then begin
        t:=b[i,k];
        b[i,k]:=b[i,k+1];
        b[i,k+1]:=t;        
      end;
    end;    
   end;
 //вывод отсортированного первого столбца  
   for l:=1 to e do begin
    writeln(b[i,l]:3);
   end;
End.

[Serge_Bliznykov]

я бы сделал эту задачу так:

const n = 5;
      m = 20;
type TArr = array[1..n,1..m] of byte;
var a : TArr;
    tmp:byte;
    i,j,k,e,r : integer;
Begin
  Readln(e,r);
  randomize;
  for i:=1 to e do begin
    for j:=1 to r do begin
      a[i,j]:=random(100);
      write(a[i,j]: 3);
    end;
  writeln;
  end;
  writeln;
  
  for i:=1 to e-1 do
    for j:=i+1 to e do
      if a[i,1]>a[j,1] then // поменяем строки i и j местами
        for k:=1 to r do begin
          tmp:=a[i,k]; a[i,k]:=a[j,k]; a[j,k]:=tmp
        end;
        
   //вывод массива
  for i:=1 to e do begin
    for j:=1 to r do
      write(a[i,j]: 3);
    writeln;
  end;

End.

[kyle16]

Спасибо.