Двухмерный массив вывести в StringGrid - Delphi - Ответ 3127538

procedure TForm1.Button1Click(Sender: TObject);
const
n=10;
var
i,kol:integer;
x:double;
begin
stringgrid1.FixedRows:=0;
stringgrid1.ColCount:=n+1;
stringgrid1.RowCount:=1;
stringgrid2.FixedRows:=0;
stringgrid2.ColCount:=n+1;
stringgrid2.RowCount:=1;
// заполняем stringgrid 1
randomize;
for I := 1 to n do begin
                     stringgrid1.Cells[i,0]:=inttostr(random(201)-100);
                     end;
//  заполняем stringgrid 2
// делаем замены, считаем их число
kol:=0;
for I := 1 to n do begin
                    if  strtoint(stringgrid1.Cells[i,0])>0 then begin
                                                        x:=(strtoint(stringgrid1.Cells[i,0])/i);
                                                        stringgrid2.Cells[i,0]:=FormatFloat('0.00',x);
                                                        inc(kol);
                                                                  end else
                                                        stringgrid2.Cells[i,0]:=stringgrid1.Cells[i,0];
 
                     end;
                     showmessage('Число замен= '+inttostr(kol));
 
end;