Сортировка двумерного массива методом быстрой сортировки

const m=5;
      n=8;
var
  Form1: TForm1;
  x: array[1..m,1..n]of integer;
 
implementation
 
{$R *.dfm}
//процедура быстрой сортировки
procedure sort(l,r:integer);
//l-левый конец массива,r-правый конец
var
  i,j,x1,y1,c: integer;
begin
  i:=l;
  j:=r;
  c:=round ((l+r)/2);//средний элемент
  x1:=x[(c-1) div n+1,(c-1) mod n+1];
  repeat
   while x[(i-1) div n+1,(i-1)mod n+1]<x1 do inc(i);//пока левый больше среднего, подвигаем левый край вправо
   while x[(j-1) div n+1,(j-1)mod n+1]>x1 do dec(j);//пока правый меньше среднего, подвигаем левый вправо
   if i<=j then {если левый и правый срослись}
    begin
     y1:=x[(i-1)div n+1,(i-1)mod n+1];
     x[(i-1)div n+1,(i-1)mod n+1]:=x[(j-1) div n+1,(j-1)mod n+1];//меняем левый и правый
     x[(j-1) div n+1,(j-1)mod n+1]:=y1;
     inc(i); //левый вправо
     dec(j); //правый влево
    end;
  until i>j;//конец одной перестановки
  if l<j then sort(l,j);//рекурсивно сортируем
  if i<r then sort(i,r);//или левую или правую части
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим некоторые параметры таблиц
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  colcount:=n;
  rowcount:=m ;
  scrollBars:=ssBoth;
 end;
with StringGrid2 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  colcount:=n;
  rowcount:=m ;
  scrollBars:=ssBoth;
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
StringGrid1.RowCount:=m;
StringGrid1.ColCount:=n;
StringGrid2.RowCount:=m;
StringGrid2.ColCount:=n;
for i:=1 to m do
for j:=1 to n do
 begin
  x[i,j]:=random(100);
  StringGrid1.Cells[j-1,i-1]:=inttostr(x[i,j]);
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,k,p:integer;
    t:real;
begin
sort(1,m*n);
for i:=1 to m do
for j:=1 to n do
StringGrid2.Cells[j-1,i-1]:=inttostr(x[i,j]);
end;