Создание матрицы при наследовании класса с вектором

program oop_vector_matrix;
{$mode objfpc}{$H+}
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
{$R *.res}
type
 
{ TVector }
 
TVector = class (TObject)
Private
  fSize: integer; //размер вектора
  fData: array of integer; //динамический массив
Public
  constructor Create(aSize: integer); // конструктор
  destructor  Destroy; override;
  function getSize: integer; virtual;
  function getMax: integer; virtual;  // поиск максимального элемента
  procedure printOnConsole; virtual;
  procedure readFromConsole; virtual;
end;
 
{ TMatrix }
 
TMatrix = class (TVector)
Private
  fMatrixSize: integer; // размер матрицы
  fVectorSize: integer; //размер векторов (все векторы одного размера)
  fMData: array of TVector; //массив векторов
Public
  constructor Create(aMSize, aVSize: integer); // конструктор
  destructor  Destroy; override;
  function getMax: integer; override;  // поиск максимального элемента
  function getSize: integer; override;
  function getVSize: integer; virtual;
  procedure printOnConsole; override;
  procedure readFromConsole; override;
 
end;
 
constructor TMatrix.Create(aMSize, aVSize: integer);
var
  i: Integer;
begin
  fMatrixSize:= aMSize;
  fVectorSize:= aVSize;
  SetLength(fMData, fMatrixSize);
  //создаём объекты векторов
  for i:=0 to High(fMData) do
      fMData[i]:= TVector.Create(fVectorSize);
end;
 
destructor TMatrix.Destroy;
begin
  SetLength(self.fMData, 0);
  inherited Destroy;
end;
 
function TMatrix.getMax: integer;
var
  i: Integer;
begin
  Result:=fMData[0].getMax;
  for i:=1 to High(fMData) do
      if fMData[i].getMax > Result then
         Result:= fMData[i].getMax; // не очень эффективно, нужно переделать с
                                   // промежуточной переменной
end;
 
function TMatrix.getSize: integer;
begin
  Result:= fMatrixSize;
end;
 
function TMatrix.getVSize: integer;
begin
  Result:= fVectorSize;
end;
 
procedure TMatrix.printOnConsole;
var
  i: Integer;
begin
  writeln('Matrix content:');
  for i:= 0 to High(fMData) do
      fMData[i].printOnConsole;
end;
 
procedure TMatrix.readFromConsole;
var
  i: Integer;
begin
  writeln('Vvedite ', fMatrixSize, ' vectorov:');
  for i:= 0 to High(fMData) do
      fMData[i].readFromConsole;
end;
 
{ TVector }
 
constructor TVector.Create(aSize: integer);
begin
  SetLength(self.fData, aSize);
  Self.fSize:= aSize;
end;
 
destructor TVector.Destroy;
begin
  SetLength(self.fData, 0); // это не обязательно
end;
 
function TVector.getSize: integer;
begin
  Result:= fSize;
end;
 
function TVector.getMax: integer;
var
  i: Integer;
begin
  Result:= fData[0];
  for i:=1 to High(fData) do
      if fData[i] > Result then
         Result:= fData[i];
end;
 
procedure TVector.printOnConsole;
var
  i: Integer;
begin
  for i:= 0 to High(fData) do
      write(fData[i], ' ');
  writeln;
end;
 
procedure TVector.readFromConsole;
var
  i: Integer;
begin
  writeln('Vedite ', fSize, ' elementov vectora:');
  for i:= 0 to High(fData) do begin
      write('> ');
      readln(fData[i]);
  end;
end;
 
var
  vector1: TVector;
  matrix1: TMatrix;
 
begin
  //тестируем
  vector1 := TVector.Create(5); //вектор из 5 элементов
  writeln('Vector size is ', vector1.getSize);
  vector1.readFromConsole;
  vector1.printOnConsole;
  writeln('max element = ', vector1.getMax);
  matrix1 := TMatrix.Create(3, 5); //матрица из 3 векторов по 5 элементов
  writeln('Matrix size is: ', matrix1.getSize, 'x', matrix1.getVSize);
  matrix1.readFromConsole;
  matrix1.printOnConsole;
  writeln('max element = ', matrix1.getMax);
  readln;
end.