Процедура рисования полигона - объясните две вещи

[Silverstone]

Вот программка, может кто объяснить две вещи?

1) что мы делаем в цикле процедуры?
2) как в цикле самой программы задать рисования, допустим, квадрата, используя данные процедуры?

Program ex12;
Uses graph;
type
    coords=record
    x:word;
    y:word;
    end;
    ar1=array[1..4] of coords;  {зЁб«® ўҐаиЁ*}
    ar2=array[1..24] of word;
    ar3=array[1..4, 1..2] of word;  {ь ўҐаиЁ*/ь Ё*¤ҐЄб*}
Var
    d,m:integer;
    a:ar1;
    b:ar3;
    c:ar2;
    x,y:word;
    i:1..4;
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 lineto (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;
  D:=detect;
  M:=2;
  initGraph (D,M,'..\bgi\');


  for i:=1 to 4 do
	    begin
      a[1].x:=240; a[1].y:=240;
      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,4); readln; cleardevice; readln;
  abc(b,4); readln;cleardevice; readln;
  abc(c,4);
readln;
end.

[Silverstone]

кто-нибудь сможет помочь?