Создание графических изображений

uses Crt,graphABC;
const n=6;
type Point=record
           x,y:integer;
           end;
var p:array[1..n] of Point;
    xc,yc,m,i,mnx,mxx,mny,mxy:integer;
begin
writeln('Введите координаты вершин (целые числа) 5-угольника в порядке обхода:');
for i:=1 to 5 do
 begin
  writeln('Вершина ',i);
  write('x=');read(p[i].x);
  write('y=');read(p[i].y);
 end;
p[6].x:=p[1].x; p[6].y:=p[1].y;//замкнем полигон
clrscr;
hidecursor;
//найдем крайние координаты
mnx:=p[1].x;mxx:=p[1].x;
mny:=p[1].y;mxy:=p[1].y;
for i:=2 to n do
 begin
  if p[i].x<mnx then mnx:=p[i].x;
  if p[i].x>mxx then mxx:=p[i].x;
  if p[i].y<mnx then mnx:=p[i].y;
  if p[i].y>mxx then mxx:=p[i].x;
 end;
 /определим масштаб для перевода в экранные координаты
if mxx-mnx>mxy-mny then m:=round((windowwidth-60)/(mxx-mnx))
else m:=round((windowheight-60)/(mxy-mny));
m:=m div 2;
//центр экрана
xc:=windowwidth div 2;
yc:=windowheight div 2;
//определим экранные координаты
for i:=1 to n do
 begin
  p[i].x:=xc+m*p[i].x;
  p[i].y:=yc-m*p[i].y;
 end;
//нарисуем
setpencolor(clRed);
Polygon(p,n);
floodfill(xc,yc,clRed)//закрасим
end.