Баии с циклом

[Zerbert]

Всем привет!!
Я не совсем нуб в дели, делаю прогу для решения симплекс метода, и столкнулся с проблемой: цикл должен идти до Colcount, но он идет только до Rstolbec, слмал голову не могу найти связь. Помогите плиз вот код.

for i:=1 to Colcount do begin
p1:=StrToFloat(strngrd1.Cells[i,Rstroka]);
p2:=StrToFloat(strngrd1.Cells[Rctolbec,Rstroka]);
strngrd1.Cells[i,Rstroka]:=FloatToStr(p1/p2);
end;

end.
Для проверки введите количество сток и столбцов, сформируйте, сделайте одно из значений в верхней строке отрицательным, и тыкните решить.
Заранее спасибо!

[Человек_Борща]

а где собственно цикл Rstolbec'а?

p1:=StrToFloat(strngrd1.Cells[i,Rstroka]);
p2:=StrToFloat(strngrd1.Cells[Rctolbec,Rstroka]);

странный код. Вообще или так:

p1:=StrToFloat(strngrd1.Cells[i,Rstroka]);
p2:=StrToFloat(strngrd1.Cells[i,Rstroka]);

или так:

Rctolbec:=i;
p1:=StrToFloat(strngrd1.Cells[Rctolbec,Rstroka]);
p2:=StrToFloat(strngrd1.Cells[Rctolbec,Rstroka]);

Сделал как вы сказали, выдаёт деление на 0.

[Zerbert]

Всем спасибо, вопрос исчерпан. надо было еще одно условие дописать