Ошибка: "There is no overloaded version of 'setSize' that can be called with these arguments"

unit MatrixAlg;
 
interface
 
type
TVector = record
  V: array of extended;
 private
  function getValue(i: integer): extended;
  procedure setValue(i: integer; Value: extended);
 public
  property p1[i: integer]: extended read getValue write setValue; default;
end;
 
TMatrix = record
  M: array of TVector;
 private
  function getValue(i,j: integer): extended;
  function getVector(i: integer): TVector;
  procedure setValue(i,j: integer; Value: extended);
  procedure setVector(i: integer; Vector: TVector);
 public
  property p1[i: integer]: TVector read getVector write setVector; default;
  property p1[i,j: integer]: extended read getValue write setValue; default;
end;
 
procedure setSize(var Vector: TVector; i: integer); overload;
procedure setSize(var Matrix: TMatrix; i: integer); overload;
procedure setSize(var Matrix: TMatrix; i,j: integer); overload;
function Size(Vector: TVector): integer; overload;
function Size(Matrix: TMatrix): integer; overload;
function Last(Vector: TVector): integer; overload;
function Last(Matrix: TMatrix): integer; overload;
 
implementation
 
procedure setSize(var Vector: TVector; i: integer);
begin
  setlength(Vector.V,i);
end;
 
procedure setSize(var Matrix: TMatrix; i: integer);
begin
  setlength(Matrix.M,i);
end;
 
procedure setSize(var Matrix: TMatrix; i,j: integer);
var k: integer;
begin
  setSize(Matrix,i);
  for k:=0 to i-1 do
  setSize(Matrix[k],j);                                        ОШИБКА!!!
end;
 
function Size(Vector: TVector): integer;
begin
  result:=length(Vector.V);
end;
 
function Size(Matrix: TMatrix): integer;
begin
  result:=length(Matrix.M);
end;
 
function Last(Vector: TVector): integer;
begin
  result:=Size(Vector)-1;
end;
 
function Last(Matrix: TMatrix): integer;
begin
  result:=Size(Matrix)-1;
end;
 
function TVector.getValue(i: integer): extended;
begin
  result:=V[i];
end;
 
procedure TVector.setValue(i: integer; Value: extended);
begin
  V[i]:=Value;
end;
 
function TMatrix.getValue(i,j: integer): extended;
begin
  result:=M[i].V[j];
end;
 
function TMatrix.getVector(i: integer): TVector;
begin
  result:=M[i];
end;
 
procedure TMatrix.setValue(i,j: integer; Value: extended);
begin
  M[i].V[j]:=Value;
end;
 
procedure TMatrix.setVector(i: integer; Vector: TVector);
begin
    M[i]:=Vector;
end;
 
end.

setSize(Matrix,j);

setSize(Matrix.M[k], j);