Сортировка массива

[Weyner]

вот код для сортировка массива, а как сделать чтобы при сортировке массива он в стринггриде переберал все столбцы!

i:=1;
   while i<stringgrid1.RowCount do
    if b[i]>b[i+1] then
    begin
    temp:= b[i];
    b[i]:= b[i+1];
    b[i+1]:= temp;
    if i>1 then
    dec(i)
    else
    inc(i);

[mihali4]

while j<StringGrid1.ColCount do

[Weyner]

а как матрице В присвоить 3 строку чтобы чтобы из матрица А в матрицу бы в В было содержание 3 строки:

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
stringgrid1.RowCount:=spinedit1.value;
stringgrid1.colCount:=spinedit1.value;
stringgrid2.colCount:=spinedit1.value;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
A: array [1..10,1..10] of integer;
B: array [1..10] of double;
i,j: integer;
temp: double;
begin
{çïîëíåíèå ìàòðèöû}
for i := 1 to stringgrid1.rowcount do
 for j:= 1 to stringgrid1.colcount do
  a[i,j]:= strtoint(stringgrid1.Cells[j-1,i-1]);
    {Ïåðåáî âñåõ ñòðîê}
 for i:= 1  to stringgrid1.rowcount do
 begin
 {ïîäñ÷åò ñóììû ýëåìåíòîâ i-îé ñòðîêè}
  b[i]:=0;
  for j:=1 to stringgrid1.colcount do
   b[i]:=b[i]+a[i,j];
   {ðàñ÷åò ñðåäíåãî i-îé ñòðîêè }
   b[i]:= b[i]/stringgrid1.colcount;
   end;
   {Ñîðòèðîâêà ìàññèâà}
   i:=1;
   while i<stringgrid1.colCount do
    if b[i]>b[i+1] then
    begin
    temp:= b[i];
    b[i]:= b[i+1];
    b[i+1]:= temp;
    if i>1 then
    dec(i)
    else
    inc(i);
    end
    else
    inc(i);
    {Âûâîä ìàññèâà}
    for i:= 1 to stringgrid2.colcount do
    stringgrid2.cells[i-1,0]:= floattostr(b[i]);