Eliminada función ya que no se utiliza en el código.
Se prealloca el tamaño de ExtrTotal para evitar que crezca en cada ciclo, además se cambia la instrucción de concatenar ExtrTotal con los valores por una inserción en la posición correspondiente para mayor velocidad.
Corregida instrucción para evitar que se entregue el resultado por pantalla.
Agregado ciclo de cálculo del coeficiente de correlación si es que la fila no contiene datos de P y S. Esto es por que cumpliéndose la primera, no importa el cálculo del coeficiente, esta fila será agregada de todas formas.