Нарисовать трапецию, после чего нарисовать ее зеркальную копию (относительно диагонали 1го квадранта) и уменьшить

uses graphABC;
var x,y,h,d,l1,l2,xt,yt:integer;
    p:array of Point;
    a,mx:real;
begin
x:=window.Center.X;
y:=window.Center.Y;
line(0,y,2*x,y);
line(x,0,x,2*y);
textout(x+5,10,'Y');
textout(2*x-20,y-20,'X');
setpenwidth(2);
setpencolor(clBlue);
  mx:=0.5;
  l1:=110;      l2:=90;
  h:=50;        d:=l1-l2;
 
setlength(p,5);
p[0].x:=x;       p[0].y:=y;
p[1].x:=x+l1;    p[1].y:=y;
p[2].x:=x+l1-d;  p[2].y:=y-h;
p[3].x:=x+d;     p[3].y:=y-h;
p[4]:=p[0];
polygon(p);
a:=90*pi/180;
p[1].x:=x+round(l1*cos(a));
p[1].y:=y-round(l1*sin(a));
p[2].x:=x+round(sqrt(4000)*cos(a));
p[2].y:=y-round(sqrt(4000)*sin(a));
p[3].x:=x+round((l1-2*d)*cos(a));
p[3].y:=y-round((l1-2*d)*sin(a));
setpencolor(clGreen);
setbrushcolor(clGreen);
polygon(p);
end.

uses graphABC;
type rpoint=record
            x,y:real;
            end;
var r:array of rpoint;
    x,y:integer;
    p:array of Point;
    m,t,ms,tx,ty:real;
begin
setwindowsize(500,500);
windowcenter;
x:=window.Center.X;
y:=window.Center.Y;
m:=(y-20)/10;//масштаб
//оси
line(0,y,2*x,y);
textout(2*x-10,y-20,'X');
line(x,0,y,2*y);
textout(x+5,0,'Y');
textout(x+5,y+10,'0');
//засечки и подписи по осям
for var i:=1 to 10 do
 begin
  line(x+round(i*m),y-3,x+round(i*m),y+3);
  line(x-round(i*m),y-3,x-round(i*m),y+3);
  textout(x+round(i*m)-3,y+10,inttostr(i));
  textout(x-round(i*m)-3,y+10,inttostr(-i));
  line(x-5,y-round(i*m),x+3,y-round(i*m));
  line(x-3,y+round(i*m),x+3,y+round(i*m));
  textout(x-25,y-round(i*m)-5,inttostr(i));
  textout(x-25,y+round(i*m)-5,inttostr(-i));
 end;
line(x+round(-10*m),y-round(-10*m),x+round(10*m),y-round(10*m)) ;
//массив исходных точек в реальных координатах
setlength(r,4);
r[0].x:=6.0; r[0].y:=-2.0;
r[1].x:=10.0; r[1].y:=-2.0;
r[2].x:=9.0; r[2].y:=4.0;
r[3].x:=7.0; r[3].y:=4.0;
setpenwidth(2);
setbrushstyle(bsClear);
setpencolor(clBlue);
setlength(p,5);
//полигон в экранных координатах
for var i:=0 to 3 do
 begin
  p[i].X:=x+round(r[i].x*m);
  p[i].Y:=y-round(r[i].y*m);
 end; 
p[4]:=p[0]; 
polygon(p);
//зеркальное отражение относительно прямой y=x
setpencolor(clGreen);
for var i:=0 to 3 do
 begin
  t:=r[i].x;
  r[i].x:=r[i].y;
  r[i].y:=t;
 end;
for var i:=0 to 3 do
 begin
  p[i].X:=x+round(r[i].x*m);
  p[i].Y:=y-round(r[i].y*m);
 end; 
p[4]:=p[0];
polygon(p); 
//уменьшение в 2 раза
tx:=0;//координаты центра фигуры
ty:=0;
for var i:=0 to 3 do
 begin
  tx:=tx+r[i].x;
  ty:=ty+r[i].y;
 end;
tx:=tx/4;
ty:=ty/4; 
ms:=2;//коэффициент уменьшения
for var i:=0 to 3 do
 begin
  r[i].x:=tx+(r[i].x-tx)/ms;
  r[i].y:=ty-(ty-r[i].y)/ms;
 end;
setpencolor(clRed);
for var i:=0 to 3 do
 begin
  p[i].X:=x+round(r[i].x*m);
  p[i].Y:=y-round(r[i].y*m);
 end; 
p[4]:=p[0];
polygon(p); 
end.