[МихПав19]

у меня в программе ошибка
помогите найти
unit Unit1;

{Торговая фирма разработала несколько планов продаж письменных столов и стоек ТВ на предстоящей ярмарке с учетом изменяющейся конъюнктуры рынка и спроса покупателей. Показатели дохода представлены в таблице. Определить оптимальный план продаж.
План продаж Величина дохода, тыс. руб
Д1 Д2 Д3 Д4
1 850 500 200 50
2 600 900 400 550
3 460 300 600 380
4 320 150 80 270
5 240 370 350 190
6 75 820 510 440
[13:55:20] Михаил Павицкий: Тема: Определение плана продаж игровым методом.}

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124

interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, Buttons, StdCtrls,  Grids, Spin, ExtCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     win: TLabel;     Edit2: TEdit;     StringGrid1: TStringGrid;     SpinEdit1: TSpinEdit;     SpinEdit2: TSpinEdit;     Label2: TLabel;     Label3: TLabel;     Button2: TButton;     RadioGroup1: TRadioGroup;     Label1: TLabel;     Edit1: TEdit;     procedure Button1Click(Sender: TObject);     procedure SpinEdit1Change(Sender: TObject);     procedure SpinEdit2Change(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure draw;   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   s,p: string;   m: array [1..99999] of real;   i,n,k,g,o,j,ty,rt,max,min: integer;   r,c,L: real;     implementation   {$R *.dfm}   procedure TForm1.draw; begin {With StringGrid1 do begin  Cells[1,0]:='Номер дня';  for rt:=2 to StringGrid1.ColCount do Cells[rt,0]:='Доход '+IntToStr(rt-1);  end;} end;   procedure TForm1.Button1Click(Sender: TObject); begin try   for j:=1 to StringGrid1.RowCount-1 do begin   s:='';     for ty:=1 to StringGrid1.ColCount-1 do if StringGrid1.cells[ty,j]<>'' then s:=s+StringGrid1.Cells[ty,j]+' ';     if s<>'' then begin    //ShowMessage('s='+s);        n:=0;        k:=0;        i:=StrToInt(copy(s,1,pos(' ',s)-1));       // ShowMessage('i='+IntToStr(i));        delete(s,1,pos(' ',s));        while pos(' ',s)>0 do begin           p:=copy(s,1,pos(' ',s)-1);           k:=k+StrToInt(p);           delete(s,1,pos(' ',s));           n:=n+1;        end;        //ShowMessage('k='+IntToStr(k));        r:=k/(n-1);        m[i]:=r;        //ShowMessage('m[i]='+FloatToStr(m[i]));      end;      end;      c:=m[1];      o:=0;      For g:=2 to i do begin        if c<m[g] then begin         c:=m[g];         o:=g;        end;      end;      Form1.Edit2.Text:=IntToStr(o);       L:=max(Edit1*min)+(1-Edit1)*max)      except end; end;   procedure TForm1.SpinEdit1Change(Sender: TObject); begin  try  if SpinEdit1.Value>2 then StringGrid1.RowCount:=SpinEdit1.Value+1;  except end;  draw; end;   procedure TForm1.SpinEdit2Change(Sender: TObject); begin   try  if SpinEdit2.Value    >2 then StringGrid1.ColCount:=SpinEdit2.Value+1;  except end;  draw; end;   procedure TForm1.Button2Click(Sender: TObject); begin  Edit2.Text:='';  With StringGrid1 do begin   for j:=1 to RowCount-1 do   for ty:=1 to ColCount-1 do   Cells[ty,j]:='';  end; end;   procedure TForm1.FormCreate(Sender: TObject); begin  draw; end;   end.

Админ: Пользуемся тегами для оформления кода.

не работает 3 критерий гурвица