Двухмерный массив вывести в StringGrid

var a:array[1..10]of real;
i,kol:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(201)-100;
write(a[i]:4);
end;
kol:=0;
for i:=1 to 10 do
begin
if a[i]>0 then
begin
a[i]:=a[i]/i;
inc(kol);
end;
end;
writeln;
writeln('Число замен= ',kol);
writeln;
writeln('Изменённый массив: ');
for i:=1 to 10 do
writeln(a[i]:3);
writeln;
end.
 
Вот,что пока "получилось":
var i,kol:integer;
for i:=1 to 10 do
   begin
     stringgrid1.cells[i-1,0]:=inttostr(random(201)-100);
 
      end;
        kol:=0;
        for i:=1 to 10 do
        begin
          if strtoint(stringgrid1.cells[i-1,0]) >0 then
          begin
  stringgrid2.cells[i-1,0]:=floattostr(StringGrid1.cells[i-1,0])/i;
            inc(kol);
          end;
      end;

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;