соединение точек с помощью DrawPoly Опции

[Sensitive]

Подскажите пожалуйста.
У меня даны координаты точек. Эти точки нужно последовательно соединить с помощью DrawPoly. координат много (приведу в пример несколько):
(7,0), (7,-1), (6.5,-2.5) и т.д.
Эти координаты нужно как-то переводить в пиксели?Я правильно понимаю?Если да,то как это сделать?

[volvo]

Так лучше?

uses graph;
const 
  x:array[1..35] of real=(
    7,8,7,5,2,-1,-3,-5,-5,-6,-7,-7.5,-10,-9.5,-7,-5,-5,-4,-4,-5,-4,-3,-3,
    -2,-2,1,3.5,5,6,5,6,7,6.5,7,7);
  y:array[1..35] of real=(
    -3,-2,2,3,3,3,4,6,7,6,6,5.5,5.5,4.5,4,2,0,-2,-5.5,-6.5,-6.5,-5.5,-3,
    -2,-1,-1,-0.5,-2,-5.5,-6.5,-6.5,-5.5,-2.5,-1,0);
var
  xmin,xmax,ymin,ymax,dx,dy,mx,my:real;
  i:byte;
  a:array[1..36] of PointType;

var
  gd, gm: integer;

begin
  initgraph(gd, gm, '');
  setcolor(white);
  xmin:=-10; xmax:=8; dx:=18;
  ymin:=-6.5; ymax:=7; dy:=13.5;
  mx:=640/dx; my:=480/dy;

  for i:=1 to 35 do begin
    x[i]:=(x[i]-xmin)*mx;
    y[i]:=getmaxy - (y[i]-ymin)*my; { <--- "Переворачиваем" изображение }
  end;

  for i:=1 to 35 do begin
    a[i].x:=trunc(x[i]); a[i].y:=trunc(y[i]);
  end;

  a[36] := a[1]; { <--- Чтобы полигон был замкнутым }
  drawpoly(36,a);
  readln;
  CloseGraph;
end.

[Sensitive]

Намного лучше,спасибо!
P.S. "замкнуть" полигон вообще забыла...(