Создать процедуру с полиморфным динамическим объектом, показывающим работу всех процедур

#include "stdafx.h"
#include <iostream>
#include <string>
#include <cstring>
#include <stdio.h>
#include <time.h>
using namespace std;
class D
{
public:
    int M[10];
    D() {}
    void setrandM()
    {
        cout << "setrandM" << endl;
        cout << "New massive" << endl;
        for (int i = 0; i<10; i++)
        {
            M[i] = rand() % 1000 + 500;
            cout << M[i] << endl;
        }
        cout << "End of new massive" << endl;
    }
    virtual void Out()
    {
        cout << "New massive" << endl;
        for (int i = 0; i<10; i++)
            cout << M[i] << endl;
        cout << "End of new massive" << endl;
    }
    ~D() { cout << "Class D" << endl; }
};
 
class F : public D
{
public:
    int X;
    F() :D() { setrandM(); }
    void setrandx()
    {
        X = rand() % 10 + 5;
    }
    void Out()
    {
        cout << endl << "New X" << X << endl;
        cout << "New massive" << endl;
        for (int i = 0; i<10; i++)
            for (int j = 0; j<X; j++)
                cout << M[i] << endl;
        cout << "End of new massive" << endl;
    }
    ~F() { cout << "Class F" << endl; }
};
 
int main()
{
    D *f1;
    f1->setrandM();
    f1->Out();
    F obj;
    f1 = &obj;
    f1->setrandx();
    f1->Out();
    system("pause");
}

D *f1 = new D;

int main()
{
    D *f1;
    f1=new D;
    f1->setrandM();
    f1->Out();
    delete f1;
    f1=new F;
    f1->setrandx();
    f1->Out();
    delete f1;
    system("pause");
}

int main()
{
    D *f1;
    D objD;
    f1=&objD;
    f1->setrandM();
    f1->Out();
    F objF;
    f1 = &objF;
    f1->setrandx();
    f1->Out();
    system("pause");
}