Stringgrid сортировка

[krabich]

Скорей всего уже 100500 тема.
Имеется Stringgrid размером 10*20.
В массиве b - числовые значения сумм строк.
Массив as1 - временное пристанище для сравниваемой строки.
kstr- количество строк(20)
kstl- количество столбцов (10)

Итог работы программы: Сортировка проходит, но не сразу, а лишь после 7 вызова данной процедуры. По ходу оно меняет столбцы, но,увы, не сразу. Проект приложу при необходимости.

var k10,i,j:integer;
b:array [1..20] of integer;
as1:array [1..10] of string

for i:=1 to kstr do  
begin
    for j:=i+1 to kstr do          
    begin
    if b[i]<b[j] then            
          begin
          for  k10:=1 to kstl do           
              begin
              as1[k10]:= sg1.Cells[k10,j];  
              sg1.Cells[k10,j]:=sg1.cells[k10,i];    
              sg1.Cells[k10,i]:=as1[k10];                 
       
              end;

          end;
    end;
    end;

[Аватар]

var t: Integer;

for i:=1 to kstr-1 do
begin
    for j:=i+1 to kstr do
    begin
    if b[i]<b[j] then
          begin
          for  k10:=1 to kstl do
              begin
              as1[k10]:= sg1.Cells[k10,j];
              sg1.Cells[k10,j]:=sg1.cells[k10,i];
              sg1.Cells[k10,i]:=as1[k10];
              end;
          t:=b[j];
          b[j]:=b[i];
          b[i]:=t;
          end;
    end;
end;

as1 как массив и не нужен, там достаточно просто s: String как промежуточная переменная

ADD

Подправил, вытащил манипуляции с b из цикла

[krabich]

Спасибо большое) Вторая часть кода помогла. Все дальнейшие расчеты проходили уже по отсортированной таблице.

PS: Вашу часть кода относительно массива надо вывести из цикла "k10".

Update: вы и сами вывели
Update2: С выводом в Stringgrid разобрался
Скрины удалить не могу