Ошибка floating point invalid operation

i,j,MoreCount:Integer; SimplexTable:array of array of extended;
ArtFun:array of extended;

unit Main;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ImgList, Child, StdCtrls, ComCtrls, Buttons, ExtCtrls, ToolWin;
 
type
  TMainForm = class(TForm)
    ImageList1: TImageList;
    SaveDialog1: TSaveDialog;
    StatusBar1: TStatusBar;
    OpenDialog1: TOpenDialog;
    PrintDialog1: TPrintDialog;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton5: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    MainMenu1: TMainMenu;
    FileMenu: TMenuItem;
    New: TMenuItem;
    Open: TMenuItem;
    CloseChild: TMenuItem;
    N9: TMenuItem;
    Save: TMenuItem;
    SaveAs: TMenuItem;
    N10: TMenuItem;
    Print: TMenuItem;
    N11: TMenuItem;
    N1Name1: TMenuItem;
    N2Name1: TMenuItem;
    N3Name1: TMenuItem;
    N4Name1: TMenuItem;
    N12: TMenuItem;
    ExitP: TMenuItem;
    Edit: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N19: TMenuItem;
    N22: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N23: TMenuItem;
    ChangeFun: TMenuItem;
    AddLim: TMenuItem;
    DelLim: TMenuItem;
    N8: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N1: TMenuItem;
    N4: TMenuItem;
    N3: TMenuItem;
    N2: TMenuItem;
    procedure ExitPClick(Sender: TObject);
    procedure NewClick(Sender: TObject);
    procedure FileMenuClick(Sender: TObject);
    procedure CloseChildClick(Sender: TObject);
    procedure EditClick(Sender: TObject);
    procedure ChangeFunClick(Sender: TObject);
    procedure AddLimClick(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure SaveAsClick(Sender: TObject);
    procedure PrintClick(Sender: TObject);
    procedure OpenClick(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure SaveClick(Sender: TObject);
    procedure DelLimClick(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N1Name1Click(Sender: TObject);
  private
    { Private declarations }
    procedure CreateChild(const Name: String);
  public
    { Public declarations }
 
  end;
 
var
  MainForm: TMainForm;
      ItemDel:integer;
implementation
 
uses Parameters, About;
 
{$R *.DFM}
 
procedure TMainForm.CreateChild(const Name: String);
var
  Child: TChildForm;
begin
  Child:=TChildForm.Create(Application);
  child.Caption:=Name;
end;
/Симплекс-метод
procedure TMainForm.N6Click(Sender: TObject);
var
  SimplexTable,SimplexTableNew:array of array of extended;
  GoalFun:array of extended;
  ArtFun:array of extended;
  ExtrEstimation:extended;
  k,i,j,MoreCount,LessCount,EquallyCount,extrItem,WLine,IterCount: integer;
  Art,bil:boolean;
label fin,up;
begin
Art:=true;bil:=false;IterCount:=0;
SimplexTable:=nil;
MoreCount:=0;LessCount:=0;EquallyCount:=0;
{1}//Сортировка ограничений: 1) >=; 2) =; 3) <=.
{2}//Порождение начального базиса
{3}//Итерационное построение симплекс-таблиц
 
{1}//---------------------------------------------------------------------------
//Сортировка "Больше"
with MainForm.ActiveMDIChild as TChildForm do
  begin
  //строки в таблицах дочернего окна нумеруются с 1
  //нулевая строка резервная
  for i:=1 to SignsChild.RowCount-1 do
    begin
    if (SignsChild.Cells[0,i]='>') or (SignsChild.Cells[0,i]='>=') then
      begin
      inc(MoreCount);
      SetLength(SimplexTable,LimChild.ColCount+2,MoreCount);
      //коэффициенты
      for j:=0 to LimChild.ColCount-1 do
      SimplexTable[j+2,MoreCount-1]:=StrToFloat(LimChild.cells[j,i]);
      //Пока нули (потом базис...)
      SimplexTable[0,MoreCount-1]:=0;
      //Значение  (B i-ый)
      SimplexTable[1,MoreCount-1]:=StrToFloat(BChild.cells[0,i]);
      end;
    end;
 
//Сортировка "Равно"
  for i:=1 to SignsChild.RowCount-1 do
    begin
    if SignsChild.Cells[0,i]='=' then
      begin
      inc(EquallyCount);
      SetLength(SimplexTable,LimChild.ColCount+2,MoreCount+EquallyCount);
      //коэффициенты
      for j:=0 to LimChild.ColCount-1 do
      SimplexTable[j+2,MoreCount+EquallyCount-1]:=StrToFloat(LimChild.cells[j,i]);
      //Пока нули (потом базис...)
      SimplexTable[0,MoreCount+EquallyCount-1]:=0;
      //Значение  (B i-ый)
      SimplexTable[1,MoreCount+EquallyCount-1]:=StrToFloat(BChild.cells[0,i]);
      end;
    end;
 
//Сортировка "Меньше"
  for i:=1 to SignsChild.RowCount-1 do
    begin
    if (SignsChild.Cells[0,i]='<') or (SignsChild.Cells[0,i]='<=') then
      begin
      inc(LessCount);
      SetLength(SimplexTable,LimChild.ColCount+2,MoreCount+EquallyCount+LessCount);
      //коэффициенты
      for j:=0 to LimChild.ColCount-1 do
      SimplexTable[j+2,MoreCount+EquallyCount+LessCount-1]:=StrToFloat(LimChild.cells[j,i]);
      //Пока нули (потом базис...)
      SimplexTable[0,MoreCount+EquallyCount+LessCount-1]:=0;
      //Значение  (B i-ый)
      SimplexTable[1,MoreCount+EquallyCount+LessCount-1]:=StrToFloat(BChild.cells[0,i]);
      end;
    end;
  end;
{2}//---------------------------------------------------------------------------
 
//Порождение начального базиса
//2.1 Добавить коэф. -1 (>=)
for j:=0 to MoreCount-1 do
  begin
  Setlength(SimplexTable,length(SimplexTable)+1,MoreCount+EquallyCount+LessCount);
  for i:=length(SimplexTable)-MoreCount+1 to length(SimplexTable)-1 do
  SimplexTable[i,j]:=0;
  SimplexTable[length(SimplexTable)-1,j]:=-1;
  end;
 
//2.2 Добавить коэф. 1 (<=)
for j:=MoreCount+EquallyCount to MoreCount+EquallyCount+LessCount-1 do
  begin
  Setlength(SimplexTable,length(SimplexTable)+1,MoreCount+EquallyCount+LessCount);
  for i:=length(SimplexTable)-LessCount+2 to length(SimplexTable)-1 do
  SimplexTable[i,j]:=0;
  SimplexTable[length(SimplexTable)-1,j]:=1;
  end;
 
//2.3 Добавить искусственные коэф. (>= и =)
for j:=0 to MoreCount+EquallyCount-1 do
  begin
    Setlength(SimplexTable,length(SimplexTable)+1,MoreCount+EquallyCount+LessCount);
    for i:=length(SimplexTable)-MoreCount+1 to length(SimplexTable)-1 do
    SimplexTable[i,j]:=0;
    SimplexTable[length(SimplexTable)-1,j]:=1;
  end;
 
//Целевая функция GoalFun
GoalFun:=nil;
with MainForm.ActiveMDIChild as TChildForm do
  begin
  SetLength(GoalFun,GoalChild.ColCount+1);
  for i:=1 to GoalChild.ColCount do
    begin
    if parametersForm.Min.Checked then GoalFun[i]:=StrToFloat(goalChild.Cells[i-1,1])
    else GoalFun[i]:=-1*StrToFloat(goalChild.Cells[i-1,1]);
    end;
  end;
//Искусственная функция ArtFun
ArtFun:=nil;
SetLength(ArtFun,length(SimplexTable)-1-MoreCount);
//i=1 - Значение иск. функции
for i:=1 to length(SimplexTable)-3 do
for j:=0 to MoreCount-1 do
  ArtFun[i-1]:=ArtFun[i-1]-SimplexTable[i,j];
 
//------------------------------------------------------------------------------
//Минимизация искусственной функции
//Базис
if MoreCount>0 then
  begin
  for j:=0 to MoreCount-1 do
  SimplexTable[0,j]:=length(simplexTable)-MoreCount+j-1;
  for i:=MoreCount to length(simplexTable[0])-1 do
  SimplexTable[0,i]:=length(simplexTable)-(LessCount+EquallyCount+MoreCount)+(i-MoreCount)-1;
  end
else
for i:=0 to LessCount+EquallyCount-1 do
  SimplexTable[0,i]:=length(simplexTable)-(LessCount+EquallyCount+MoreCount)+i-1;
 
//2 нижние строки для оценок
SetLength(SimplexTable,length(SimplexTable),length(SimplexTable[0])+2);
for i:=0 to length(GoalFun)-1 do SimplexTable[i+1,length(SimplexTable[0])-2]:=goalFun[i];
for i:=0 to length(ArtFun)-1 do SimplexTable[i+1,length(SimplexTable[0])-1]:=ArtFun[i];
 
SimplexTableNew:=nil;
SetLength(SimplexTableNew,length(SimplexTable),length(SimplexTable[0]));
//итерации...
up:
repeat
if not art then inc(IterCount);
if IterCount=Parametersform.CountIteration.Value then
  begin
  with MainForm.ActiveMDIChild as TChildForm do
  begin
  task.Items.Add('');
  task.Items.Add('Достигнуто предельное число итераций. Решение не найдено');
  exit;
  end;
  end;
 
//поиск первой минимальной из отрицательных оценки искуственной функции
ExtrEstimation:=100000;
extrItem:=0;
for i:=2 to length(simplexTable)-1 do
if (SimplexTable[i,length(SimplexTable[0])-1]<ExtrEstimation) and (SimplexTable[i,length(SimplexTable[0])-1]<0) then
 begin
 extrItem:=i-1;{новый базис}
 ExtrEstimation:=SimplexTable[i,length(SimplexTable[0])-1];
 end;
if ExtrEstimation=100000 then goto fin;
 
{ВНИМАНИЕ!!!  Delphi пропускает не используемые (по мнению Delphi) операторы.}
 
//выбор рабочей строки (поиск минимального из положительных)
ExtrEstimation:=100000;
WLine:=0;
for j:=0 to length(simplexTable[0])-2 do
begin
if SimplexTable[extrItem+1,j]<>0 then
if (SimplexTable[1,j]/SimplexTable[extrItem+1,j]<ExtrEstimation) and (SimplexTable[1,j]*SimplexTable[extrItem+1,j]>0) then
  begin
  WLine:=j;
  ExtrEstimation:=SimplexTable[1,j]/SimplexTable[extrItem+1,j];
  end;
end;
//новый базис
for i:=0 to length(SimplexTable[0])-1 do SimplexTableNew[0,i]:=SimplexTable[0,i];
SimplexTableNew[0,WLine]:=extrItem;
//перерасчет рабочей строки
for i:=1 to length(SimplexTable)-1 do SimplexTableNew[i,WLine]:=SimplexTable[I,wlINE]/SimplexTable[extrItem+1,wlINE];
//перерасчет коэффициентов
for i:=1 to length(SimplexTable)-1 do
for j:=0 to length(SimplexTable[0])-1 do
if j<>WLine then
SimplexTableNew[i,j]:=SimplexTable[i,j]-SimplexTable[i,Wline]*SimplexTable[extrItem+1,j]/SimplexTable[extrItem+1,WLine];
//копирование таблиц
for i:=0 to length(SimplexTable)-1 do for j:=0 to length(SimplexTable[0])-1 do SimplexTable[i,j]:=SimplexTableNew[i,j];
//Вывод текущего решения
if ParametersForm.CheckBox1.Checked then begin
bil:=false;
if not art then
 with MainForm.ActiveMDIChild as TChildForm do
  begin
  task.Items.Add('');
  task.Items.Add('Итерация '+InttoStr(IterCount));
  for i:=0 to GoalChild.ColCount-1 do
  begin
    for j:=0 to length(SimplexTable[0])-1 do
    if i+1=SimplexTable[0,j] then
    begin
    task.Items.Add('  '+GoalChild.Cells[i,0]+'='+FloatToStr(SimplexTable[1,j]));
    bil:=true;
    end;
  if not bil then task.Items.Add('  '+GoalChild.Cells[i,0]+'=0');
  bil:=false;
  end;
end;
end;
 
 
 
until false;
fin:
if art then
  begin
  art:=false;
  SetLength(SimplexTable,Length(SimplexTable)-MoreCount,Length(SimplexTable[0])-1);
  goto up;
  end;
//Результат
with MainForm.ActiveMDIChild as TChildForm do
  begin
  task.Items.Add('');
  task.Items.Add('Результат');
  for i:=0 to GoalChild.ColCount-1 do
  begin
    for j:=0 to length(SimplexTable[0])-1 do
    if i+1=SimplexTable[0,j] then
    begin
    task.Items.Add('  '+GoalChild.Cells[i,0]+'='+FloatToStr(SimplexTable[1,j]));
    bil:=true;
  end;
  if not bil then task.Items.Add('  '+GoalChild.Cells[i,0]+'=0');
  bil:=false;
  end;
  task.Items.Add('');
  if parametersForm.Min.Checked then
  task.Items.Add('Минимальное значение функции '+FloatToStr(-1*(SimplexTable[1,length(SimplexTable[0])-1])))
  else
  task.Items.Add('Максимальное значение функции '+FloatToStr(SimplexTable[1,length(SimplexTable[0])-1]));
  end;
end;