Упорядочивание строк матрицы

[CodeError]

Здравствуйте. У мня вроде как простая задача и ее решение я в голове себе ясно представляю, но програмно реализовать никак не могу. Задача на делфи - матрица m на n по нажатию кнопки рандомно заполняется 0 и 1, и по следующему клику надо упорядочить строки по возростанию 1. Для отображение матрицы на форме я использовал StringGrid. Подскажите с реализацией кода плз

[alex_fcsm]

uses crt;
const m=10;
      n=10;
var a:array [1..m,1..n] of byte;
    b,temp:array[1..m] of byte;
    i,j,k:integer;

begin
randomize;
clrscr;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(2);
    write(a[i,j]:3);
   end;
   writeln;
 end;
for i:=1 to m do
 begin
  b[i]:=0;
   for j:=1 to n do
    if a[i,j]=1 then inc(b[i]);
 end;
 
 for i:=2 to m do
  for j:=m downto i do
    if b[j]<b[j-1] then
   begin
     k:=b[j];
     b[j]:=b[j-1];
     b[j-1]:=k;
     for k:=1 to n do
      temp[k]:=a[j,k];
     for k:=1 to n do
      a[j,k]:=a[j-1,k];
     for k:=1 to n do
      a[j-1,k]:=temp[k];
   end;
writeln('==============================');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  write('---',b[i]);
  writeln;
 end;
   
end.

[CodeError]

Плин ну я тупик!!! Спасибо огромное