[rastafarey]

Hermano ese es tu codigo.

Código Delphi [-]
procedure TForm7.Button1Click(Sender: TObject);
Type
  TNumeroAreas = 1..6;
  TArregloAreas = Array[TNumeroAreas] Of Real;
  TNumeroCoordenadas = 1..3;
  TArregloCoordenadas = Array[TNumeroCoordenadas] Of Real;
  TCoordenadas = Array[TNumeroAreas] Of TArregloCoordenadas;
Const
  __NORDINALES: Array[TNumeroAreas] Of String = ('PRIMERA', 'SEGUNDA', 'TERCERA', 'CUARTA', 'QUINTA', 'SEXTA');
Var
  Area: Real;
  Areas: TArregloAreas;
  CoordenadasXYZ, AX: TCoordenadas;
  CoordenadasC: TArregloCoordenadas;
  I: TNumeroAreas;
  J: TNumeroCoordenadas;
begin
  Area := 0;
  For J := Low(J) To High(J) Do
    CoordenadasC[J] := 0;
  For I := Low(I) To High(I) Do Begin
    Areas[i] := strtofloat(inputbox(Format('VALOR DE LA %s AREA', [__NORDINALES[i]]), Format('A%d=', [i]),''));
    Area := Area + Areas[i];
    For J := Low(J) To High(J) Do Begin
      CoordenadasXYZ[i][J] := strtofloat(inputbox(Format('CENTROIDE DE LA %s FIGURA', [__NORDINALES[i]]), Format('x%d=', [J]),''));
      AX[i][J] := Areas[i] * CoordenadasXYZ[i][J];
      CoordenadasC[J] := CoordenadasC[J] + AX[i][J];
    End;
  End;
  For J := Low(J) To High(J) Do
    CoordenadasC[J] := CoordenadasC[J] / Area;
  showmessage(' LA COORDENADA XC:='+ formatfloat('0.00', CoordenadasC[1]));
  showmessage(' LA COORDENADA YC:='+ formatfloat('0.00', CoordenadasC[2]));
  showmessage(' LA COORDENADA ZC:='+ formatfloat('0.00', CoordenadasC[3]));
end;

Ahora los del foro nos merecemos la explicacion de que es un centroide parq ue sirve y como nos puede ayudar y que uso tiene en lla actualidad.