Średnia geometryczna

WItam
Mam dane zapisane w Stringgridzie , jak moge obliczyc srednia geometryczną w delphi, coś probowałem zrobic ale nie za bardzo mi wychodzi.

Wzór na Średnią geometryczną

Ze stringgrida chyba umiesz przeczytać :) Komenda StrToInt()
Masz tu programik

Wyznacza średnią geometryczną elemetów tablicy A (Gdzie n to numer elemenów)
to jest kawałek realizujący n-ty pierwiastek z iloczynu :

ntyPierwiastek :=Exp(1/n*Ln(iloczyn));

program SGEOMdpr;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  function SGeom(A:array of real):real;
  var
  i:cardinal;
  iloczyn:real;
  begin
  result:=0;
  iloczyn:=1;
  for i:=Low(A) to High(A) do
  iloczyn:=iloczyn*A[i];
  if iloczyn>0 then
  Result:=Exp(1/Length(A)*Ln(iloczyn));
  end;

begin

writeln(SGeom([2,2,5,7]));
readln;

end.

Oczywiście możesz podstawić normalną wypełnioną tablicę dynamiczną
albo
Policz sobie iloczyn i wstaw do wzorku na ntyPierwiastek