[compuin]

Olvide agregar

Código Delphi [-]
ascmc  : array[0..9] of double;
                          xx     : Array[0..5] of double;