Ошибка в нарушении прав доступа при выполнении деструктора

#include <iostream>//Конструктор копий
using namespace std;
class alpha
{
public:
//private:
    int data;
    int *p;
//public:
    alpha(){}
 
    alpha(int d){ p = new int [d]; data = d;     /*data = d;*/}
 
    alpha(alpha& a)
    {
        p = new int[a.data];
        p = a.p;
        data = a.data;
        cout<<"\n Запущен конструктор копирования";
    }
 
    void display()
    { cout<<data; }
 
    void operator = (alpha& a)
    {
        data = a.data;
        cout<<"\n Запущен оператор присваения";
    }
 
    ~alpha()
    {
        delete[]p;
    }
};
 
    void main()
    {
        setlocale( LC_ALL,"Russian" );
 
        alpha a1(1);
        a1.p[0]=20;
 
        alpha a2;
        a2 = a1; //запуск перегружаемого "="
        cout << "\na2="; a2.display();
 
        alpha a3(a1);//запуск конструктора копирования!
        cout << "\na3="; a3.display();
        cout << endl;
        system("pause");
}

A(const A& a) : N(a.N)
    {
        if (a.arr == nullptr)
            arr = nullptr;
        else
        {
            arr = new int[N]; // выделяем новую память размером, достаточным для копирования данных
            for (size_t i = 0; i < N; ++i) // копируем данные из памяти, 
                                            // адрес которой содержится в указателе объекта-параметра, 
                                            // в память, адрес которой содержится в указателе инициализируемого объекта
                arr[i] = a.arr[i];
        }
    }

A(size_t n) : N(n), arr(new int[N])

#include <iostream>
#include <memory>
 
template<typename Tp>
struct Array
{
  Array(int n) : data(new Tp[n], [](Tp const* data){delete [] data;}) {}
  // для такого примера и стандартного конструктора копирования достаточно
  Tp& operator[](const unsigned idx) { return *(data.get() + idx); }
  std::shared_ptr<Tp> data;
};
 
int main()
{
  Array<int> arr(221);
  auto arr2 = arr;
  arr2[0] = 123;
  std::cout << arr[0] << "\n";
}

A a(10); // будет выделена память в куче под 10 int, адрес начала которой будет храниться в указателе объекта

A(const A& a) : N(a.N)
    {
        if (a.arr == nullptr)
            arr = nullptr;
        else
        {
            arr = new int[N]; 
            for (size_t i = 0; i < N; ++i) 
                                            
                arr[i] = a.arr[i];
        }
    }