Ошибка с переменами и типом

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
class Matrix
{public:
 int n, int m;
 void kod();
};
void Matrix::kod()
{int ncol, int nrow;
  nrow=n;ncol=m;
  a=new Vector*[ncol];     //Выделение памяти под масив указателей на вектора
  for(int j=0;j<ncol;j++)   //Выделение памяти
   a[j]=new Vector(nrow);    //под вектора
}
Matrix::~Matrix()           //Деструктор
{
  for(int j=0;j<ncol;j++)   //Освобождаем память
   delete a[j];              //от столбцов матрицы
  delete[] a;                //Удаление массива указателей на вектора
}
Matrix::Matrix(const Matrix& B) //Конструктор копирования
{                               //Создает копию
  nrow=B.nrow; ncol=B.ncol;     //матрицы
  a=new Vector*[ncol];          //Выделение памяти под массив указателей на вектора
  for(int j=0;j<ncol;j++){      //Выделение памяти
   a[j]=new Vector(nrow);        //под вектора
   for(int i=0;i<nrow;i++)      //Копирование
    (*a[j])[i]=B(i,j);          //элементов матрицы
  }
}
Matrix& Matrix::operator=(const Matrix& B) //присваивание матриц
{
  if(this==&B)     //если присваивание самому себе,
   return*this;    //то ничего не делаем
  if(nrow!=B.nrow||ncol!=B.ncol){ //если размерности не совпадают,
   for(int j=0;j<ncol;j++)    //то освобождаем память
    delete a[j];    //от столбцов
   delete[]a;       //и массива указателей на столбцы
   nrow=B.nrow; ncol=B.ncol; //приравниваем размерности
   a=new Vector*[ncol];   //выделяем
   for(int j=0;j<ncol;j++) //новую
    a[j]=new Vector(nrow);   //память
  }
  for(int j=0;j<ncol;j++)     //копирование
   for(int i=0;i<nrow;i++)    //элементов
    (*this)(i,j)=B(i,j);      //матрицы
  return*this;
}
Matrix Matrix::operator+(const Matrix& B) //сумма матриц
{
  Matrix sum(*this);   //копия первого слагаемого
  for(int i=0;i<nrow;i++)  //добавление
   for(int j=0;j<ncol;j++)  //второго
    sum(i,j)+=B(i,j);     //слагаемого
  return sum;
}
Matrix Matrix::operator-(const Matrix& B) //разность матриц
{
  Matrix div(*this);        //копия уменьшаемого
  for(int i=0;i<nrow;i++)   //вычитание
   for(int j=0;j<ncol;j++)  //элементов
    div(i,j)-=B(i,j);       //второй матрицы
  return div;
}
Vector Matrix::operator*(const Vector& b) //умножение матрицы на вектор
{
  if(ncol!=b.GetSize())
   throw MatrixException("Несоответствие размера умножаемой"
                             "матрицы и вектора");
  Vector prod(nrow);    //вектор - произведение
  for(int i=0;i<nrow;i++)  //строки матрицы
   for(int j=0;j<ncol;j++)  //умножаются на
    prod[i]+=(*this)(i,j)*b[j]; //вектор
  return prod;
}
Vector Matrix::GetLine(int i) //получить i-ю строку матрицы
{
  Vector ai(ncol);     //вектор для i-й строки
  for(int j=0;j<ncol;j++) //заполнение элементами
   ai[j]=(*this)(i,j);  //i-й строки
  return ai;
}
Matrix Matrix::operator*(const Matrix& B) //умножение матрицы
{                                      //на матрицу
  if(ncol!=B.nrow)
   throw MatrixException("Размеры перемножаемых матриц"
                           "не соответствуют друг другу");
   Matrix c(nrow,B.ncol);   //матрица-произведение
   double tmp;
   for(int i=0;i<nrow;i++)
     for(int j=0;j<B.ncol;j++){
    tmp=0.0;
    for(int k=0;k<nrow;k++)   //умножение i-й строки
     tmp+=(*this)(i,k)*B(j,k);  //на j-й столбец
    c(i,j)=tmp;
   }
  return c;
}
void Matrix::SwapLines(int i,int j) //перестановка i-й и j-й строк матрицы
{
  double tmp;
  for(int k=0;k<ncol;k++){
   tmp=(*this)(i,k);
   (*this)(i,k)=(*this)(j,k);
   (*this)(j,k)=tmp;
  }
}
void Matrix::DivLine(int i,double divisor) //Деление i-й строки на divisor
{
 for(int j=0;j<ncol;j++)
  (*this)(i,j)/=divisor;
}
void Matrix::DiffLines(int k,int i, double factor) //Вычитание из k-й строки
{                               //i-й строки,умноженной на factor
 for(int j=0;j<ncol;j++)
  (*this)(k,j)-=(*this)(i,j)*factor;
}
Matrix Matrix::operator~()        //Обращение матрицы
/*Исходная матрица путем элементарных преобразований превращается в единичную.
Те же преобразования параллельно выполняются над другой матрицей E,
которая вначале является единичной. В результате матрица E
превращается в матрицу,обратную исходной.
  Элементарные преобразования реализуют метод Гаусса с выбором главного элемента.
   При создании матрицы Eее столбцы обнуляются в конструкторе векторов,
   а на главную диагональ помещаются единицы.*/
{
 int i,imain,k;
 if(nrow!=ncol) //Если матрица не квадратная,генеруется исключение
  throw MatrixException("Попытка обратить прямоугольную матрицу");
 Matrix E(nrow,nrow);  //Вспомогательная матрица
 Matrix Tmp(*this);  //Запоминаем исходную матрицу
 for(i=0;i<nrow;i++) //Делаем вспомогательную матрицу
  E(i,i)=1.0;     //единичной
 for(i=0;i<nrow;i++){   //Перебор строк
  imain=(*a[i]).NumbMainElement(i);  //Номер главного элемента i-го столбца
  SwapLines(i,imain);  //Перестановка строк, чтобы на
  E.SwapLines(i,imain);  //диагонали стоял главный элемент
  double divisor=(*this)(i,i);  //Главный элемент
  if(0==divisor)
   throw MatrixException("Главный элемент=0."
                                 "Матрица вырожденная");
   DivLine(i,divisor);   //Деление строки на главный элемент
   E.DivLine(i,divisor);  //Вычитание i-й строки
   for(k=0;k<nrow;k++){   //из остальных строк для
    if(k==i) continue;    //обнуления всех элементов
    double factor=(*this)(k,i);  //i-го столбца,
    DiffLines(k,i,factor);   //кроме диагонального
    E.DiffLines(k,i,factor);
   }
  }
  *this=Tmp;        //Восстановление исходной матрицы
  return E;         //Возвращение обратной матрицы
}
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
 
#endif