Построить в центре экрана треугольник заданного размера и заполнить его произвольным изображением

uses GraphABC;
Var x1, x2, x3, y1, y2, y3 : Integer;
begin
Write (' x1 = ');
ReadLn (x1);
WriteLn (x1);
Write (' x2 = ');
ReadLn (x2);
WriteLn (x2);
Write (' x3 = ');
ReadLn (x3);
WriteLn (x3);
Write (' y1 = ');
ReadLn (y1);
WriteLn (y1);
Write (' y2 = ');
ReadLn (y2);
WriteLn (y2);
Write (' y3 = ');
ReadLn (y3);
WriteLn (y3);
Line(x1,y1,x2,y2);
LineTo(x3,y3);
LineTo(x1,y1);
end.

Line(x1,y1,x2,y2);
Line(x2,y2,x3,y3);
Line(x1,y1,x3,y3);

Moveto(x1,y1);
Lineto(x2,y2);
Lineto(x3,y3);
Lineto(x1,y1);

uses graphABC;
var a:array of point;
    x,y:integer;
begin
setlength(a,4);
writeln('Введите координаты вершин треугольника');
for var i:=0 to 2 do
 begin
  readln(x,y);
  a[i].X:=x;
  a[i].Y:=y;
 end; 
a[3]:=a[0];
setbrushcolor(clRed);
polygon(a);
end.

uses graphABC;
var x1,y1,x2,y2,x3,y3:integer;
begin
writeln('Введите координаты вершин треугольника');
readln(x1,y1,x2,y2,x3,y3);
Moveto(x1,y1);
Lineto(x2,y2);
Lineto(x3,y3);
Lineto(x1,y1);
floodfill((x1+x2+x3)div 3,(y1+y2+y3) div 3,clRed);
end.