Упорядочить элементы главной диагонали матрицы по не убыванию

procedure ....
var mas:array [1..5,1..5] of integer;mas2:array [1..5] of integer;
i,j,buf,min,imin:integer;
begin
for i:=1 to 5 do
    for j:=1 to 5 do 
     mas[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);
for i:=1 to 5 do
    mas2[i]:=mas[i,i];
for i:=1 to 5 do 
begin
     min:=mas2[i];
     for j:=1 to 5 do
               if (mas2[j]<min) then 
                              begin 
                                     min:=mas2[j];
                                     imin:=j;
                              end; 
       buf:=mas2[i];
       mas2[i]:=mas2[imin];
       mas2[imin]:=buf;
end;
for i:=1 to 5 do
    for j:=1 to 5 do
     begin
      if(i=j)then StringGrid2.Cells[j-1,i-1]:=IntToStr(mas2[i]);
      else StringGrid2.Cells[j-1,i-1]:=IntToStr(mas2[i,j]);
    end;
end;