Поиск ошибки

begin
Memo1.Text:='';
Memo2.Text:='';
Memo3.Text:='';
Memo4.Text:='';
sum:=0;
max:=0;
min:=0;
Q:=1/(StringGrid1.RowCount-1);
P:=StrToFloat(Edit3.Text);
Label6.Caption:='Q='+FloatToStrF(q,ffFixed,10,3);//q критерий лаппласса
      // перенос данных в массив
      StringGrid2.RowCount:=StringGrid1.RowCount-1;
      StringGrid2.ColCount:=StringGrid1.ColCount-1;
 for i:=1 to StringGrid1.RowCount-1 do
  for j:=1 to StringGrid1.ColCount-1 do
   begin
     glmas[i,j]:=StrToFloat(StringGrid1.Cells[j,i]);
        end;
 
  //!!--------------критерий Лапласса
          for i1:=1 to StringGrid1.RowCount-1 do  //строка
             begin
           sum:=0;
           for j1:=1 to StringGrid1.ColCount-1 do  //столбец
             begin
           sum:=sum+StrToFloat(StringGrid1.Cells[j1,i1]); //суммирование по строкам
           sumstrok[i1,j1]:=sum;
           A:= q*(sum);
           sumstrok[i1,j1]:=A;
           //поиск максимального элемента по критерию лапласса
           if sumstrok[i1,j1]>max then
             max:=sumstrok[i1,j1];
                   end;
 Label5.Caption:='A*=max(                                      )='+FloatToStr(max); //вывод масимального значения по критерию лапласса
 Memo2.Text:=Memo2.Text+FloatToStrF(A,ffFixed,10,2)+';';//вывод всех значений для лапласса
                    end;
  //!!--------------------РАБОТАЕТ
 
                //!!КРИТЕРИЙ ВАЛЬДА
         //поиск минимального элемента по критерию вальда
          for i2:=1 to StringGrid1.RowCount-1 do  //строка
             begin
           min:=glmas[i2,1];
           for j2:=1 to StringGrid1.ColCount-1 do  //столбец
             begin
           if glmas[i2,j2]<min then
                min:=glmas[i2,j2];
                end;
minzna4[i2]:=min;//массив поиска из минимальных значений вальда
Memo1.Text:=Memo1.Text+FloatToStr(minzna4[i2])+';'; //вывод всех минимальных значений
                end;
                   //поиск максимального среди минимальных для вальда
max:=minzna4[1];
  for i6:=1 to StringGrid1.RowCount-1 do
   begin
    if minzna4[i6]>max then max:=minzna4[i6];
      end;
Label3.Caption:='W=max(                                      )='+FloatToStr(max);//вывод максимального значения среди минимальных для вальда
        //--------------------РАБОТАЕТ
 
 
 //!!Поиск максимального значения в столбце для матрицы рисков(R)
 
          for i3:=1 to StringGrid1.RowCount-1 do
          begin
           max:=glmas[1,1];
            for j3:=1 to StringGrid1.ColCount-1 do
             begin
                if glmas[j3,i3]>max then
                 max:=glmas[j3,i3];
                  end;
               rmasmax[i3,j3]:=max;
                StringGrid2.Cells[i3-1,0]:=FloatToStr(rmasmax[i3,j3]);
                end;
                   {
       //строим матрицу рисков
         { for i4:=1 to StringGrid1.RowCount-1 do
           for j4:=1 to StringGrid1.ColCount-1 do
            begin
           //  temp:=rmasmax[i4,j4]-(StrToFloat(StringGrid1.Cells[i4,j4]));
            StringGrid2.Cells[i4-1,j4-1]:=rmasmax[i4,1]-StrToFloat(StringGrid1.Cells[i4,j4]);
             //rmas[j4,i4]:=StrToFloat(StringGrid2.Cells[i4-1,j4-1]);//делаем массив из значений стринггрида2
               end;
 
                   {
        //поиск максимального значения по матрице рисков
        for i5:=1 to StringGrid1.RowCount-1 do  //строка
             begin
           max:=rmas[i5,j5];
           for j5:=1 to StringGrid1.ColCount-1 do  //столбец
             begin
           if rmas[i5,j5]>max then
                max:=rmas[i5,j5];
                end;
maxzna4[i5]:=max;//массив поиска из максимальных значений матрицы рисков
Memo3.Text:=Memo3.Text+FloatToStr(maxzna4[i5])+';'; //вывод всех максимальных значений сэвиджа
end;
//поиск минимального среди максимальных для сэвиджа
min:=maxzna4[1];
  for j6:=1 to StringGrid1.RowCount-1 do
   begin
    if maxzna4[j6]<min then min:=maxzna4[j6];
      end;
Label9.Caption:='S=min(                                      )='+FloatToStr(min);//вывод максимального значения среди минимальных для вальда
                       }
 
 
     //----------РАБОТАЕТ
 
              //КРИТЕРИЙ Гурвица
         //поиск минимального элемента для Гурвица
          for i7:=1 to StringGrid1.RowCount-1 do  //строка
             begin
           min:=glmas[i7,1];
           max:=glmas[i7,1];
           for j7:=1 to StringGrid1.ColCount-1 do  //столбец
             begin
           if glmas[i7,j7]<min then
                min:=glmas[i7,j7];
                if glmas[i7,j7]>max then
                 max:=glmas[i7,j7];
                end;
 
H:=((P*min)+((1-p)*max));//критерий гурвиццо
Hmass[i7]:=H;
Memo4.Text:=Memo4.Text+FloatToStr(H)+';'; //вывод всех минимальных значений
max:=hmass[1];
 for i8:=1 to StringGrid1.RowCount-1 do
  begin
    if  hmass[i8]>max then max:=hmass[i8];
                end;
                    end;
      Label10.Caption:='H=max(                                      )='+FloatToStr(max);
 
             end;//конечный бегин

//строим матрицу рисков
 
          for i4:=1 to StringGrid2.RowCount-1 do
           for j4:=1 to StringGrid2.ColCount-1 do
            begin
             temp:=rmasmax[i4,j4]-(StrToFloat(StringGrid1.Cells[i4,j4]));
           // StringGrid2.Cells[i4-1,j4-1]:=rmasmax[i4,1]-StrToFloat(StringGrid1.Cells[i4,j4]);
             rmas[j4,i4]:=StrToFloat(StringGrid2.Cells[i4-1,j4-1]);//делаем массив из значений стринггрида2
               end;

//!!Поиск максимального значения в столбце для матрицы рисков(R)
 
          for i3:=1 to StringGrid1.RowCount-1 do
          begin
           max:=glmas[1,1];
            for j3:=1 to StringGrid1.ColCount-1 do
             begin
                if glmas[j3,i3]>max then
                 max:=glmas[j3,i3];
                  end;
               rmasmax[i3,j3]:=max;
                StringGrid2.Cells[i3-1,0]:=FloatToStr(rmasmax[i3,j3]);
                end;