Сортировка элементов главной диагонали матрицы

procedure TForm1.Button1Click(Sender: TObject);
var
  a:array[1..10] of integer;
   n,i,l1,j,c:integer;
begin
  n:=SpinEdit1.value;
 stringgrid1.rowcount:=n;
 stringgrid1.colcount:=n;
 for i:=1 to n do
   a[i]:=Strtoint(Stringgrid1.cells[1-i,i-1]);
 begin
   for j:=1 to 20 do
     begin
       for l1:=1 to 19 do
         begin
           if a[i]>a[i+1] then
           begin
             c:=a[i];
             a[i]:=a[i+1];
             a[i+1]:=c
           end;
         end;
     end;
 end;
 for i:=1 to n do
   Stringgrid1.cells[i-1,i-1]:=inttostr(a[i]);
end;

for i:=1 to n-1 do
for j:=i+1 to n do
if a[i,i]>a[j,j] then
 begin
  x:=a[i,i];
  a[i,i]:=a[j,j];
  a[j,j]:=x;
 end;

procedure TForm1.Button2Click(Sender: TObject);
var
  a:array[1..10,1..10] of integer;
   n,i,x,j:integer;
begin
  n:=SpinEdit1.value;
 for i:=1 to n do   begin
 for j:=1 to n do begin
 a[i,j]:=Strtoint(Stringgrid1.cells[1-i,1-j]);
 end;
 end;
 for i:=1 to n-1 do
 for j:=i+1 to n do
 if a[i,i]>a[j,j] then
  begin
    x:=a[i,i];
    a[i,i]:=a[j,j];
    a[j,j]:=x;
  end;
  for i:=1 to n do begin
  for j:=1 to n do begin
   Stringgrid1.cells[i,j]:=inttostr(a[1-i,1-j]);
 end;
 end;
end;

a[i,j]:=Strtoint(Stringgrid1.cells[j-1,i-1]);
.....................................................
 Stringgrid1.cells[j-1,i-1]:=inttostr(a[i,j]);