Получить номера строк элементы которых расположены в возврастающем порядке.

[lkvvb]

Добрый вечер, если вас не затруднит не могли бы вы мне помочь.

Необходимо Получить номер строки элементы которых расположены в возрастающем порядке.

Элементы это ячейки в stringgrid. Вот код всей программы(на всякий случай):
procedure TForm1.Button1Click(Sender: TObject);
var
a:array of array of integer;
s,m,n,i,j,nCol:integer;

begin
n:=strToint(edit1.text);
m:=strtoint(edit2.text);
setlength(a,n,m);
stringgrid1.ColCount:=m;
stringgrid1.RowCount:=n;
randomize;
for i:=0 to n-1 do
for j:=0 to m-1 do
begin
a[i,j]:=random(20);
StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);
end;
end;

end.