ошибка при делении на ноль..

[vityanya]

не могу написать рповерку, если в решении идет деление на ноль, то вместо ноля производить деление на единицу...
Вот код программы...

procedure min_y;
begin
if
strtofloat(form1.StringGrid1.Cells[1,1])/strtofloat(form1.StringGrid1.Cells[1,l])>strtofloat(form1.StringGrid1.Cells[2,1])/strtofloat(form1.StringGrid1.Cells[2,l]) // здесь производится деление на ноль во второй итерации...
then
  minY:=strtofloat(form1.StringGrid1.Cells[l,1])
else
  minY:=strtofloat(form1.StringGrid1.Cells[l,2]);
if minY=strtofloat(form1.StringGrid1.Cells[l,1])
then
m3:=2
else
m3:=3;
end;
procedure min_S;
begin
if
strtofloat(form1.StringGrid1.Cells[5,2])>strtofloat(form1.StringGrid1.Cells[5,3])
then
minS:=strtofloat(form1.StringGrid1.Cells[5,2])
else
minS:=strtofloat(form1.StringGrid1.Cells[5,3]);
if minS=strtofloat(form1.StringGrid1.Cells[5,2])
then
l:=1
else
l:=2;
end;
procedure TForm1.dvojstvennyj;
begin
min_S;
min_Y;
//Запись нового уравнения в исключаемую строку
  if m3-1<2
  then
  m4:=m3+1
  else
  m4:=m3-1;
  form1.stringgrid1.Cells[0,m3]:=form1.stringgrid1.Cells[l,0];
  form1.stringgrid1.Cells[1,m3]:=floattostr(strtofloat(form1.stringgrid1.Cells[1,m3])/minS);
  form1.stringgrid1.Cells[2,m3]:=floattostr(strtofloat(form1.stringgrid1.Cells[2,m3])/minS);
  form1.stringgrid1.Cells[3,m3]:=floattostr(strtofloat(form1.stringgrid1.Cells[3,m3])/minS);
  form1.stringgrid1.Cells[4,m3]:=floattostr(strtofloat(form1.stringgrid1.Cells[4,m3])/minS);
  form1.stringgrid1.Cells[5,m3]:=floattostr(strtofloat(form1.stringgrid1.Cells[5,m3])/minS);
//Запись нового уравнения в строку W
  form1.stringgrid1.Cells[1,1]:=floattostr(strtofloat(form1.stringgrid1.Cells[1,1])-strtofloat(form1.stringgrid1.Cells[1,m3])*minY);
  form1.stringgrid1.Cells[2,1]:=floattostr(strtofloat(form1.stringgrid1.Cells[2,1])-strtofloat(form1.stringgrid1.Cells[2,m3])*minY);
  form1.stringgrid1.Cells[3,1]:=floattostr(strtofloat(form1.stringgrid1.Cells[3,1])-strtofloat(form1.stringgrid1.Cells[3,m3])*minY);
  form1.stringgrid1.Cells[4,1]:=floattostr(strtofloat(form1.stringgrid1.Cells[4,1])-strtofloat(form1.stringgrid1.Cells[4,m3])*minY);
  form1.stringgrid1.Cells[5,1]:=floattostr(strtofloat(form1.stringgrid1.Cells[5,1])-strtofloat(form1.stringgrid1.Cells[5,m3])*minY);
//Запись в строку, в которой был наибольший коеффициент среди S1 и S2.
  p:=strtofloat(form1.stringgrid1.Cells[l,m4]);
  form1.stringgrid1.Cells[1,m4]:=floattostr(strtofloat(form1.stringgrid1.Cells[1,m4])-strtofloat(form1.stringgrid1.Cells[1,m3])*p);
  form1.stringgrid1.Cells[2,m4]:=floattostr(strtofloat(form1.stringgrid1.Cells[2,m4])-strtofloat(form1.stringgrid1.Cells[2,m3])*p);
  form1.stringgrid1.Cells[3,m4]:=floattostr(strtofloat(form1.stringgrid1.Cells[3,m4])-strtofloat(form1.stringgrid1.Cells[3,m3])*p);
  form1.stringgrid1.Cells[4,m4]:=floattostr(strtofloat(form1.stringgrid1.Cells[4,m4])-strtofloat(form1.stringgrid1.Cells[4,m3])*p);
  form1.stringgrid1.Cells[5,m4]:=floattostr(strtofloat(form1.stringgrid1.Cells[5,m4])-strtofloat(form1.stringgrid1.Cells[5,m3])*p);
  //Вторая итерация код соответствует процедуре "dvojstvennyj" здесь, при вычислении min_Y производится деление на ноль и выдается ошибка

помогите хоть мыслями какими то

[vovk]

проверять значение перед тем как собираетесь делить? что мешает использовать переменную и условие?

var
x:Extended;
begin
....
if TRIM(form1.StringGrid1.Cells[1,l])='0' then
x:=1 
else
x:=strtofloat(form1.StringGrid1.Cells[1,l]);
....
strtofloat(form1.StringGrid1.Cells[1,1])/x>.......

[vityanya]

что мешает использовать переменную и условие?

наверно недостаточно опыта в программировании...
сейчас испробую этот вариант.