Сортировка простым выбором

[qpuTuJlb]

Не правильно сортирует, в чем проблема?

var
mas:array of integer;
i,j,nm,t:integer;
begin
nm:=StringGrid1.ColCount;
setlength(mas,nm);
for i:=0 to nm-2 do
mas[i]:=strtoint(StringGrid1.Cells[i,0]);
For i:=2 to length(mas) Do begin
t:=mas[i-1];
j:=i-1;
While(j>=0) and (mas[i]>t) do begin
mas[j]:=mas[j-1];
j:=j-1;
end;
mas[j]:=t;
end;
for i:=0 to nm-1 do
StringGrid1.cells[i,0]:=inttostr(mas[i]);
end;