Написать функцию, формирующую одномерный массив, состоящий из квадратов отрицательных элементов, лежащих выше главно

#include <iostream>
#include <iomanip>
#include <cstdlib>
#include <ctime>
using namespace std;
 
double *Create (double **B, int n, int k)
{    
    int p=0;
    double *A = new double[k];
    
    for (int i = 0; i < n; i++)    
        for (int j = 0; j < n; j++)        
        if (i<j && B[i][j]<0.) A[p++]=B[i][j]*B[i][j];     
    return A;
}
 
void Print (double *A, int n)
{
    for (int i = 0; i < n; i++)             
        cout << A[i] << " ";        
    cout << "\n";    
}   
 
 
int main()
{
    srand((int)time(0));    
    int n, k=0;
    cout << "n="; cin >> n;
    
      double **B = new double*[n], *A;
    for (int i = 0; i < n; i++)
         B[i]=new double[n];
    
    cout << "Matrix B:\n";
    for (int i = 0; i < n; i++)
    {
        for (int j = 0; j < n; j++)
        {
        B[i][j]=rand()%19 - 9;
        if (i<j && B[i][j]<0.) k++;
        cout << setw(2) << B[i][j] << " ";
        }
    cout << "\n";
    }
    
    if(k)
    {
    A=Create(B,n,k);
    cout << "Array A:\n";
    Print(A,k);
    delete[]A;    
    }
    else cout << "Negative elements above the main diagonal are absent\n";
 
    for (int i = 0; i < n; i++)
    delete[]B[i];
    delete[]B;
system("pause");
return 0;
}