Переделайте программу из TurboPascal в PascalABC.Net

uses graph;
var x1,y1,x2,y2,x3,y3,x4,y4:integer;
    p:array[1..4] of pointtype;
begin
initgraph(x1,y1,'');
{определим координаты 4 вершин пирамиды}
x3:=getmaxX div 2+200;{низ право}
y3:=getmaxY div 2;
x1:=x3-200;y1:=y3+200;{низ лево}
x2:=x1-100;y2:=y3+50;{низ задняя}
x4:=(x1+x2+x3)div 3;{верх}
y4:=y3-200;
{определим координаты полигона-сечения}
p[1].x:=(x1+x4) div 2;p[1].y:=(y1+y4) div 2;
p[2].x:=(x2+x4) div 2;p[2].y:=(y2+y4) div 2;
p[3].x:=(x4+x3) div 2; p[3].y:=(y4+y3) div 2;
p[4]:=p[1];{замкнем его}
setcolor(12);{нарисуем полигон-сечение}
setfillstyle(3,12);
fillpoly(4,p);
setcolor(9);{нарисуем пирамиду}
line(x1,y1,x4,y4);
line(x2,y2,x4,y4);
line(x3,y3,x4,y4);
line(x1,y1,x2,y2);
line(x3,y3,x1,y1);
setlinestyle(2,0,1);{задняя линия пунктиром}
line(x2,y2,x3,y3);
readln
end.

uses
  graphabc;
 
var
  x1, y1, x2, y2, x3, y3, x4, y4: integer;
  p: array of point := new Point[4];
 
begin
  {определим координаты 4 вершин пирамиды}
  x3 := Window.Width div 2 + 200;{низ право}
  y3 := Window.Height div 2;
  x1 := x3 - 200;y1 := y3 + 200;{низ лево}
  x2 := x1 - 100;y2 := y3 + 50;{низ задняя}
  x4 := (x1 + x2 + x3) div 3;{верх}
  y4 := y3 - 200;
  {определим координаты полигона-сечения}
  p[0].x := (x1 + x4) div 2;p[0].y := (y1 + y4) div 2;
  p[1].x := (x2 + x4) div 2;p[1].y := (y2 + y4) div 2;
  p[2].x := (x4 + x3) div 2; p[2].y := (y4 + y3) div 2;
  p[3] := p[0];{замкнем его}
  SetPenColor(clRed);{нарисуем полигон-сечение} // 12
  SetBrushColor(clCyan);
  SetBrushStyle(bsSolid);
  FillPolygon(p);
  DrawPolygon(p);
  SetPenColor(clLightBlue);
  SetPenWidth(2);
  line(x1, y1, x4, y4);
  line(x2, y2, x4, y4);
  line(x3, y3, x4, y4);
  line(x1, y1, x2, y2);
  line(x3, y3, x1, y1);
  SetPenStyle(DashStyle.Dot); {задняя линия точками}
  SetPenWidth(1);
  line(x2, y2, x3, y3);
  readln
end.