Графика в Pascal ABC

[eldarrr12]

Здравствуйте! Передо мной стоит задача сделать вращающуюся вокруг себя правильную фигуру. Основа вроде как есть, но я не знаю, что ещё нужно написать дабы выполнить задачу. Буду благодарен за помощь. Код прилагаю:

uses graphabc;
var x,y:array[1..20]of integer;x0,y0,r,n:integer;

procedure mnogougolnik(n,r:integer);
label m1;
var i,j:integer;
begin
m1:for j:=1 to 50 do begin
//moveto(round(x0+r*cos(2*j*pi/50)),round(y0-r*sin(2*j*pi/50)));
for i:=1 to n do begin
x[i]:=round(x0+r*cos(2*pi*(i/n+j/50)));
y[i]:=round(y0-r*sin(2*pi*(i/n+j/50)));
//lineto(x,y);
end;
for i:=n+1 to 20 do begin
x[i]:=x[n];
y[i]:=y[n];
end;
setbrushcolor(clred);
setpenwidth(10);
polygon((x[1],y[1]),(x[2],y[2]),(x[3],y[3]),(x[4],y[4]),(x[5],y[5]),(x[6],y[6]),(x[7],y[7]),(x[8],y[8]),(x[9],y[9]),(x[10],y[10]),(x[11],y[11]),(x[12],y[12]),(x[13],y[13]),(x[14],y[14]),(x[15],y[15]),(x[16],y[16]),(x[17],y[17]),(x[18],y[18]),(x[19],y[19]),(x[20],y[20]));
setpenwidth(1);
redraw;
window.Clear;
sleep(100);
end;
goto m1;
end;

begin
window.Maximize;
readln(n);
x0:=window.Width div 2;
y0:=window.Height div 2;
r:=max(x0,y0)div 2;
x[1]:=x0+r;
y[1]:=y0;
lockdrawing;
mnogougolnik(n,r);
end.

[min@y™]

абц - обязательно?
откуда вы такие все лезете-то?

[eldarrr12]

[QUOTE=min@y™;1733344]абц - обязательно?
откуда вы такие все лезете-то?
желательно, но я буду рад любой помощи :3