Нужно переделать программу

[Silverstone]

Что нужно сделать:

Написать процедуру рисования полигона. Параметры: 1) ад-рес массива координат полигона (так как количество вершин каж-дый раз разное – параметр нетипизирован); 2) количество вершин полигона. В процедуре привести нетипизированный параметр к удобному для программиста типу и нарисовать полигон. Из основ-ной программы обратиться к данной процедуре 3 раза, в качестве фактического параметра использовать различные структуры дан-ных, хранящие координаты полигонов (например, массив записей, двумерный массив, одномерный массив).

Сам код:

Program r12;
Uses graph;
type
    coords = record
    x:word;
    y:word;
    end;
    arr1=array[1..12] of coords;
    arr2=array[1..24] of word;
    arr3=array[1..12, 1..2] of word;
Var
    GD,Gm:integer;
    a:arr1;
    b:arr3;
    c:arr2;
    phi:real;
    x,y:word;
    i:1..12;
procedure abc(var t;const n:byte);
type arrmax=array[1..16383,1..2] of word;
  var i:byte;
	begin
  for i:=1 to n do
      begin
      if i=1 then moveto(arrmax(t)[i,1],arrmax(t)[i,2])
             else lineto(arrmax(t)[i,1],arrmax(t)[i,2]);
      if i=n then lineto(arrmax(t)[1,1],arrmax(t)[1,2]);
      end;
	end;

Begin
  randomize;
  gD:=detect;
  gM:=2;
  initGraph (gD,gM,'..\bgi\');


 {for i:=1 to 12 do
	    begin
      phi:=(pi/6)*(i-1);
      y:=240-round(sin(phi)*100);
      x:=320+round(cos(phi)*100);
      a[i].x:=x;
      a[i].y:=y;
      b[i,1]:=x;
    	b[i,2]:=y;
      c[i*2-1]:=x;
      c[i*2]:=y;
	    end;}

  abc(a,12); readln; cleardevice; readln;
  abc(b,12); readln;cleardevice; readln;

  abc(c,12);

readln;
end.

Помогите переделать выделенную часть в коде на функцию, которая рисовала бы любой другой полигон

[Mad_Cat]

я бы лучше

 procedure abc(var t;const n:byte);

переписал

[Silverstone]

процедура нужна именно такая
полигон нужен другой