Написать проект по коду программы

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma link "CGRID"
#pragma resource "*.dfm"
class Table{
  int **p,**b;
  int row,col,n2;
public:
   Table() {p=NULL;}
  ~Table() {if(p) delete [] p;}
   void allocate(int m,int n);
   int get_p(int i,int j) {return p[i][j];}
   int get_row() {return row;}
   int get_col() {return col;}
   int get_b(int i, int j){return b[i][j];}
   void order();
};
void Table::allocate(int m,int n)
  {
    row=m; col=n;
    if(p)delete [] p;
    p=new int *[m];
    if(!p)
      {
       Application->MessageBox("Ошибка","Сообщение",MB_OK);
       exit(1);
      }
    int i,j;
    for(i=0;i<m;i++)
      p[i]=new int [n];
    for(i=0;i<m;i++)
      for(j=0;j<n;j++)
        p[i][j]=50-random(101);
if(b) delete[]b;
b=new int*[n];
for(i=0;i<n;i++)
b[i]=new int[n];
for(i=0;i<n;i++)
for(j=0;j<n;j++)
{b[i][j]=p[i][j];
n2=n;
  } }
void Table::order()
  {
int i,j;
for(i=0;i<row;i++)
for(j=0;j<row;j++){
b[j][i]=p[i][j];
    }}
Table ob;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{  Close();}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
randomize();
  ob.allocate(CSpinEdit1->Value,CSpinEdit2->Value);
  int i,j;
  StringGrid1->ColCount=CSpinEdit2->Value;
  StringGrid1->RowCount=CSpinEdit1->Value;
  StringGrid2->ColCount=CSpinEdit2->Value;
  StringGrid2->RowCount=CSpinEdit1->Value;
  StringGrid1->Width=StringGrid1->ColCount*StringGrid1->DefaultColWidth + 
  StringGrid1->ColCount+4;
  StringGrid1->Height=StringGrid1->RowCount*StringGrid1
  ->DefaultRowHeight+StringGrid1->RowCount+4;
  StringGrid2->Width=StringGrid2->ColCount*StringGrid2->DefaultColWidth + 
  StringGrid2->ColCount+4;
  StringGrid2->Height=StringGrid2->RowCount*StringGrid2
  ->DefaultRowHeight+StringGrid2->RowCount+4;
  StringGrid1->Left=(Form1->Width-StringGrid1->Width)/8;
  StringGrid2->Left=Form1->Width/2+(Form1->Width-StringGrid1->Width)/14;
  for(j=0;j<CSpinEdit2->Value;j++)
    for(i=0;i<CSpinEdit1->Value;i++)
       StringGrid1->Cells[j][i]=IntToStr(ob.get_p(i,j));
  Button3->Enabled=true; 
  for(j=0;j<CSpinEdit2->Value;j++)
    for(i=0;i<CSpinEdit1->Value;i++)
       StringGrid2->Cells[j][i]=' ';
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  ob.order();
  int m=ob.get_row(),n=ob.get_col();
  int i,j;
  for(j=0;j<n;j++)
    for(i=0;i<m;i++)
       StringGrid2->Cells[j][i]=IntToStr(ob.get_b(i,j));}
//---------------------------------------------------------------------------