не получается сортировка кто знает помогите

[Droid]

procedure TForm1.FormActivate(Sender: TObject);
var
ll,ll1,ll2,ll3,p1,p2,kl2:integer;
bufer: variant;
begin
for ll:=1 to 7 do
for ll1:=2 to 8 do
for ll2:=3 to 9 do
for ll3:=4 to 10 do
begin
stringgrid3.Cells[ll-1,0]:=inttostr(ll);
stringgrid3.Cells[ll1-2,1]:=inttostr(ll1);
stringgrid3.Cells[ll2-3,2]:=inttostr(ll2);
stringgrid3.Cells[ll3-4,3]:=inttostr(ll3);
end;
for p1:=1 to 10 do
for p2:=1 to 10 do
for kl2:=1 to 4 do
begin
if stringgrid1.Cells[kl2,p1]>stringgrid1.Cells[kl2,p2] then
begin
bufer:=stringgrid1.Cells[kl2,p1];
p1:=p2;
p2:=bufer;
end;
end;

[alexBlack]

Что это за метод ?
И почему переменная цикла P2 меняется в самом цикле ?

for p2:=1 to 10 do
...
p1:=p2;
p2:=bufer;
...

[Droid]

хм.... а как он должна быть ?
я поэтому и спрашиваю

[Droid]

for p1:=1 to 10 do
for p2:=1 to 10 do
for kl2:=1 to 4 do
begin
if stringgrid1.Cells[kl2,p1]>stringgrid1.Cells[kl2,p2] then
begin
bufer:=stringgrid1.Cells[kl2,p1];
stringgrid1.Cells[kl2,p1]:=stringgrid1.Cells[kl2,p2];
stringgrid1.Cells[kl2,p2]:=bufer;

end;

так наверное надо делать ?

[alexBlack]

И работает ?
У Вас заполняется StringGrid3, а сортируется StringGrid1.
Кроме того непонятно, что должно сортироваться.
Метод-то пузырька ?

[AlexandrSid]

Здесь все подробно написано по сортировку массивов

http://alglib.sources.ru/articles/sort.php