сортировка на максимальное

[Wutang]

помогите разобраться в чем ошибка

procedure TForm4.Button1Click(Sender: TObject);
var
c,r:integer;
s:integer;
p:integer;
m:integer;
buf:array[0..3] of string;
i:integer;
begin
for r:=1 to stringgrid1.rowcount-1 do


begin


m:=r;

for i:=r to stringgrid1.rowcount-1 do


if StrToInt(stringgrid1.cells[3,i])>StrToInt(stringgrid1.cells[3,m])

then m:=i;


if r <> m then


begin

for c:=0 to 5 do begin


buf[c]:=stringgrid1.Cells[c,r];


stringgrid1.Cells[c,r]:=stringgrid1.Cells[c,m];


stringgrid1.Cells[c,m]:=buf[c];

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[type_Oleg]

Это только часть кода. У вас 4 раза begin и ни одного end
Непонятно, что должна делать программа.

[Wutang]

Сообщение от type_Oleg

Это только часть кода. У вас 4 раза begin и ни одного end
Непонятно, что должна делать программа.

end'Ы есть просто забыл скопировать,программа должна отсортировать и вывести по в стрингрид в порядке убывания данные

[Wutang]

помогите с кодом разобраться уж очень срочно ннадо