[Murzik97]

Я использую Delphi 10, и не могу разобраться почему не робит. Это не по заданию, а прошлая работа... так как я работал в Delphi 7, там она работала. Использую эту прогу как пример

Код:

procedure TForm1.RadioGroup1Click(Sender: TObject);
var i:integer;
begin
randomize;
if radiogroup1.ItemIndex=0 then
  begin
   for i:=0 to 10 do stringgrid1.Cells[i,0]:=inttostr((random(201)-100));
   StringGrid1.Options:=StringGrid1.Options-[goEditing];
   end;
 if radiogroup1.ItemIndex=1 then
  begin
    for i:=0 to 10 do stringgrid1.Cells[i,0 ]:='0';
    StringGrid1.Options:=StringGrid1.Options+[goEditing];
  end;
 end;

procedure TForm1.Button1Click(Sender: TObject);
var i,max,l,t:integer;
m:array [0..10] of integer;
begin
max:=0;
l:=0; //номер макс
t:=1;
 for i:=0 to 10 do
  begin
    m[i]:=strtoint(stringgrid1.cells[i,0]);
    if  m[i]>max then begin
    l:=i+1;
    max:=m[i];
    end;
  end;
  for i:=0 to 10 do
  begin
  if m[i]=t then t:=t+1;
  end;
   label1.caption:='Вычислить номер первого максимального элемента массива = '+inttostr(l);
   label3.Caption:='количество максимальных элементов (если их несколько) = '+inttostr(t);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
radiogroup1.ItemIndex:=1
end;

end.