Нарисовать n-угольник, заданный координатами своих вершин

uses graph;
//функция расстояния между 2 точками
function rast(a,b:pointtype):real;
begin
rast:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
var f:text;
    n,i,x0,y0:integer;
    a:array[1..100] of pointtype;
    c:pointtype;
    r,mx,ms:real;
begin
initgraph(x0,y0,'');
assign(f,'1.txt');
reset(f);
readln(f,n); //читаем количество точек
for i:=1 to n do
read(f,a[i].x,a[i].y);//читаем их координаты
close(f);
a[n+1]:=a[1];//замкнем полигон
//найдем центр множества точек
c.x:=0;
c.y:=0;
for i:=1 to n do
 begin
  c.x:=c.x+a[i].x;
  c.y:=c.y+a[i].y;
 end;
c.x:=c.x div n;
c.y:=c.y div n;
//найдем максимальное расстояние от цента до точки
r:=rast(a[1],c);
for i:=2 to n do
if rast(a[i],c)>r then r:=rast(a[i],c);
//центр на экране
x0:=getmaxX div 2;
y0:=getmaxY div 2;
//масштаб
ms:=(y0-20)/r;//y0 потому что высота окна меньше его ширины
//рисуем многоугольник по его координатам с учетом центра на экране и масштаба
moveto(x0+round(a[1].x*ms),y0-round(a[1].y*ms));
for i:=2 to n+1 do
lineto(x0+round(a[i].x*ms),y0-round(a[i].y*ms));
readln
end.