Наследование объектного типа

unit Main;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus;
const
m: integer = 4;
k: integer = 10;
 
type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  TProduct = object
    Name: string[15];
    ZatrEdProd: real; 
    PriseEdProd: real;
    V_Prod_Min: real; 
    V_Prod: array[0..m] of real;  // Constant expression expected
    A_Prod: array[0..m] of real;  // Constant expression expected
  public
  function V_Prod_Sum(j: integer):real;
  function Doxod(j: integer): real;
  end;
 
     TPredpr= object
      SRS: real; 
      Kredit: real; 
      PostZatr: real; 
      Nalog: real; 
      NDS: real; 
      Product: array[0..k] of TProduct; //Constant expression expected
    public
      function VarZatr(): real;
      function Doxod(): real;
    end;
 
var
  Form2: TForm2;
  Predpr: Tpredpr;
  i,j: integer;
 
 
implementation
 
{$R *.dfm}
 
 
function TPredpr.doxod(): real;
var j,i:integer; temp:real;
begin
result:=0;
for j:=1 to k do begin
 temp:=0;
 for i:=1 to m do begin
  temp:=temp+product[j].V_prod[i]*product[j]. 
  A_prod[i];
 end;
result:=result+temp*(1-Nalog - NDS)*product[j].PriseEdProd; 
end;
end;
 
 
function TPredpr.VarZatr(): real;
var j,i:integer; temp:real;
begin
result:=0;
for j:=1 to k do begin
 temp:=0;
 for i:=1 to m do begin
  temp:=temp+product[j].V_prod[i];
 end;
result:=result+temp*product[j].ZatrEdProd;
end;
end;
 
 
function TProduct.doxod(j:integer): real;
var i:integer; temp:real;
begin
  temp:=0;
    for i:=1 to m do begin
    temp:=temp+Tpredpr.product[j].V_prod[i]*Tpredpr.product[j].A_prod[i]; // Method identifier expected; Missing operator or semicolon
    end;
 result:=temp*(1- TPredpr.Nalog-TPredpr.NDS)*TPredpr.product[j].PriseEdProd; // Method identifier expected; Missing operator or semicolon; Statement expected, but expression of type 'Real' found
 end;
 
 
 
function TProduct.V_Prod_Sum(j:integer): real;
var i:integer; temp:real;
begin
temp:=0;
 for i:=1 to m do begin
 temp:=temp+Tpredpr.product[j].V_prod[i]; // Method identifier expected; Missing operator or semicolon
 end;
result:= temp;
end;
 
end.