[Irishashasha]

Здравствуйте!
Есть задача. Задана матрица размером NxM. Упорядочить ее строки по возрастанию первого элемента. В случае равенства первых элементов выполнять проверку по вторым элементам строки, и т.д.
C решением я что то намудрила и разобраться уже не в силах подскажите пожалуйста.
Код

Код:

procedure TZadanie12.BitBtn1Click(Sender: TObject);
  var i,j:integer;
begin

    for i:=1 to m do
    begin
  for j:=1 to N do
     begin
  if Length(StringGrid2.Cells[i,j])<>0
 then a[i,j]:=StrToInt(StringGrid1.Cells[i,j]);
 // else a[i,j]:=0;
  end;
  end;
K:=1;
for i:=1 to m do
begin
for j:=i+1 to n  do
 if a[k,i]> a[k,j] then//при компиляции на эту строчку ругается так:Project Project1.exe raised exception class Eaccessviolation with message Access violation at address 0046379C in module project1.exe. Read of addres 00000004
begin    //поменять местами
       for l:=0 to m-1  do
       begin
      temp[l]:=a[k,i];
      a[k,i]:=a[k,j];
      a[k,j]:=temp[l];
      end;
 //StringGrid2.Cells[i,0]:=FloatToStrf(a[i,j],fffixed,3,0);
                end;

end;
 end;

lmikle: Хде теги, я вас внимательно спрашиваю???

Очень жду помощи......Заранее спасибо.