Сделать из консольного приложения оконное

#include <iostream>
#include <cstdlib>
 
using namespace std;
 
int main()
{
    int *a, n;
 
    cout << "Array size : ";
    cin >> n; // Ввод размера массива
 
    a = new int[n];
 
    for(int i = 0; i < n; i++) // Заполнение массива
    {
        a[i] = rand();
    }
 
    cout << "Array : ";
    for(int i = 0; i < n; i++) // Вывод массива (для проверки)
    {
        cout << a[i] << ' ';
    }
 
    int mn = a[0], mx = a[0]; // Минимальные и максимальные элементы
 
    int i_mn = 0, i_mx = 0; // индексы минимального и аксимального элементов
 
    for(int i = 1; i < n; i++) // Поиск минимального и максимального элементов ( и их позиций )
    {
        if(a[i] > mx)
        {
            mx = a[i];
            i_mx = i;
        }
        if(a[i] < mn)
        {
            mn = a[i];
            i_mn = i;
        }
    }
 
    int left, right;
 
    int answer;
 
    if(abs(i_mn - i_mx) <= 1) // минимальный и максимальный элементы стоят вплотную, и между ними нет чисел: ответ = 0
    {
        answer = 0;
    }
    else
    {
        answer = 1;
        if(i_mn <= i_mx) // минимальный элемент стоит правее максимального
        {
            left = i_mn + 1;
            right = i_mx;
        }
        else // максимальный стоит правее минимального
        {
            left = i_mx +1;
            right = i_mn;
        }
 
        for(int i = left; i < right; i++) // находим искомое произведение
        {
            answer *= a[i];
        }
    }
 
    cout << endl << "Answer : " << answer; // выводим ответ
    return 0;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int n;
n = StrToInt(Edit1->Text);
int * a = new int[n];
for(int i = 0; i < n; i++) // Заполнение массива
{
a[i] = rand();
StringGrid1->Cells[0, i]=IntToStr(a[i]);
} }

a[i] = rand()%100+1;

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
        int *a=NULL; //указатель на массив
        int n; //размер массива
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    a = new int[n];
    for(int i = 0; i < n; i++) // Заполнение массива
    {
        a[i] = rand()%100+1;
    }
    for(int i = 0; i < n; i++) // Вывод массива (для проверки)
    {
        StringGrid1->Cells[i][0]=AnsiString(a[i]);
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int mn = a[0], mx = a[0]; // Минимальные и максимальные элементы
 
    int i_mn = 0, i_mx = 0; // индексы минимального и аксимального элементов
 
    for(int i = 1; i < n; i++) // Поиск минимального и максимального элементов ( и их позиций )
    {
        if(a[i] > mx)
        {
            mx = a[i];
            i_mx = i;
        }
        if(a[i] < mn)
        {
            mn = a[i];
            i_mn = i;
        }
    }
    Memo1->Lines->Add("min= "+AnsiString(mn));
    Memo1->Lines->Add("max= "+AnsiString(mx));
    int left, right;
 
    int answer;
 
    if(abs(i_mn - i_mx) <= 1) // минимальный и максимальный элементы стоят вплотную, и между ними нет чисел: ответ = 0
    {
        answer = 0;
        Memo1->Lines->Add("минимальный и максимальный элементы стоят вплотную!");
    }
    else
    {
        answer = 1;
        if(i_mn <= i_mx) // минимальный элемент стоит правее максимального
        {
            left = i_mn + 1;
            right = i_mx;
        }
        else // максимальный стоит правее минимального
        {
            left = i_mx +1;
            right = i_mn;
        }
 
        for(int i = left; i < right; i++) // находим искомое произведение
        {
            answer *= a[i];
        }
    }
    Memo1->Lines->Add("Ответ = "+AnsiString(answer));  // выводим ответ
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
    if(Edit1->Text!="")
    {
        n=StrToInt(Edit1->Text);
        StringGrid1->ColCount=n;
        StringGrid1->Width=StringGrid1->ColWidths[0]*n;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
    if(!((Key >= '0' && Key <= '9') || Key == VK_BACK /*|| Key == DecimalSeparator /*ThousandSeparator*/)) Key = 0x00;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
  StringGrid1->ScrollBars=ssNone;
  Memo1->Clear();        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    delete []a;         
}
//---------------------------------------------------------------------------