Нет перегруженной подпрограммы с такими типами параметров - PascalABC.NET

uses Graph3D;
 
var faceCount: integer;
 
procedure Cube(p1: Point3D; p2: Point3D; p3: Point3D; p4: Point3D; m: GColor);
    begin
      Triangle(p1,p2,p3, m);
      Triangle(p3,p4,p1, m);
      
      faceCount+= 1;
    end;
 
procedure CubeT(x:integer; y:integer; z:integer; block: byte);
    begin 
      var p1:= P3D(x,  y,  z + 1);
      var p2:= P3D(x + 1, y,  z + 1);
      var p3:= P3D(x + 1, y,  z );
      var p4:= P3D(x,  y,  z );
      
      Cube(p1, p2, p3, p4, DiffuseMaterial(Colors.Gray));
    end;
 
begin
    Graph3D.Window.Caption:= 'Custom Mesh';
    
    CubeT(0,0,0,0);
end.