[Pascal] крутящаяся звезда

[Рамик]

парни, помогите пожалуйста! я запутался конкретно...

условие:
Вывести в центре экрана заданную фигуру цветом линии с номером 1. При нажатии стрелок влево и вправо фигура поворачивается в соответствующую сторону, меняя цвет. Выход из программы при нажатии ESC.
Построение фигуры оформить процедурой. Поиск координат точек поворота оформить функциями.

program krut_zvezd;
uses crt,graph;
procedure zvezda1(x0,y0,r,a,gradus:integer);
var i,x,y:integer;
begin
x:=x0+round(r*cos(a*2*pi/360));
y:=y0-round(r*sin(a*2*pi/360));
moveto(x,y);
for i:=1 to 6 do begin
    a:=a+30;
    x:=x0+round(r/2*cos(a*2*pi/360));
    y:=y0-round(r/2*sin(a*2*pi/360));
    lineto(x,y);
    a:=a+30;
    if a>360 then a:=gradus;
    x:=x0+round(r*cos(a*2*pi/360));
    y:=y0-round(r*sin(a*2*pi/360));
    lineto(x,y);
    end;
end;
function povorlevo(x0,y0,r,a,gradus:integer; kod:char):integer;
begin
repeat
    cleardevice;
    gradus:=gradus+10;
    a:=gradus;
    zvezda1(x0,y0,r,a,gradus);
    delay(30000);
    until kod<>#75;
    end;
var r:integer;      {radius zvezdi}
    x0,y0:integer;  {koordinati zentra zvezdi}
    a:integer;      {ugol mezhdu osyu 0X i pryamoi, soedinyayushei centr zvezdi i konec lucha}
    d,m:integer;
    gradus:integer;
    kod:char;
begin
d:=0;
initgraph(d,m,'');
x0:=325;
y0:=250;
r:=60;
gradus:=30;
a:=gradus;

repeat
zvezda1(x0,y0,r,a,gradus);
until keypressed;
repeat
kod:=readkey;
if kod=#0 then
   kod:=readkey;
   if kod=#75 then
   povorlevo(x0,y0,r,a,gradus,kod);
until kod<>#75;

end.

[Sazary]

Вот, подкорректировал.
Так и не понял, зачем вам там нужны были бесконечные циклы.

program krut_zvezd;
uses crt,graph;


procedure zvezda1(x0,y0,r : integer; var a,gradus:integer);
var i,x,y:integer;
begin
x:=x0+round(r*cos(a*2*pi/360));
y:=y0-round(r*sin(a*2*pi/360));
moveto(x,y);
for i:=1 to 6 do begin
    a:=a+30;
    x:=x0+round(r/2*cos(a*2*pi/360));
    y:=y0-round(r/2*sin(a*2*pi/360));
    lineto(x,y);
    a:=a+30;
    if a>360 then a:=gradus;
    x:=x0+round(r*cos(a*2*pi/360));
    y:=y0-round(r*sin(a*2*pi/360));
    lineto(x,y);
    end;
end;


procedure povorlevo(x0,y0,r : integer; var a,gradus:integer; kod:char);
begin
//repeat
cleardevice;
gradus:=gradus+10;
if gradus>60 then gradus := 0;
a:=gradus;
zvezda1(x0,y0,r,a,gradus);
//delay(30000);
//until kod<>#75;
end;

var r:integer;      {radius zvezdi}
    x0,y0:integer;  {koordinati zentra zvezdi}
    a:integer;      {ugol mezhdu osyu 0X i pryamoi, soedinyayushei centr zvezdi i konec lucha}
    d,m: smallint;      // если TP7, то изменить на integer
    gradus:integer;
    kod:char;

begin
d:=0;
initgraph(d,m,'');
x0:=325;
y0:=250;
r:=60;
gradus:=30;
a:=gradus;

//repeat
zvezda1(x0,y0,r,a,gradus);
//until keypressed;

repeat
kod:=readkey;
if kod=#0 then
 kod:=readkey;
if kod=#75 then
  povorlevo(x0,y0,r,a,gradus,kod);
until kod=#27;

end.

[Рамик]

спасибо большое!
вот вся задача(вдруг кому пригодится)!

program krut_zvezd;
uses crt,graph;
procedure zvezda1(x0,y0,r : integer; var a,gradus:integer);
var i,x,y:integer;
begin
x:=x0+round(r*cos(a*2*pi/360));
y:=y0-round(r*sin(a*2*pi/360));
moveto(x,y);
for i:=1 to 6 do begin
    a:=a+30;
    x:=x0+round(r/2*cos(a*2*pi/360));
    y:=y0-round(r/2*sin(a*2*pi/360));
    lineto(x,y);
    a:=a+30;
    if a>360 then a:=gradus;
    x:=x0+round(r*cos(a*2*pi/360));
    y:=y0-round(r*sin(a*2*pi/360));
    lineto(x,y);
    end;
    end;
function povorlevo(x0,y0,r:integer; var a,gradus:integer; kod:char):integer;
 begin
 cleardevice;
 gradus:=gradus+10;
 if gradus>60 then gradus := 0;
 a:=gradus;
 zvezda1(x0,y0,r,a,gradus);
 end;
function povorpravo(x0,y0,r:integer; var a,gradus:integer; kod:char):integer;
 begin
 cleardevice;
 gradus:=gradus-10;
 if gradus>60 then gradus:=0;
 a:=gradus;
 zvezda1(x0,y0,r,a,gradus);
 end;
var r:integer;      {radius zvezdi}
    x0,y0:integer;  {koordinati zentra zvezdi}
    a:integer;      {ugol mezhdu osyu 0X i pryamoi, soedinyayushei centr zvezdi i konec lucha}
    d,m: integer;
    c,gradus:integer;
    kod:char;
begin
 d:=0;
 initgraph(d,m,'');
 x0:=325;
 y0:=250;
 r:=60;
 c:=1;
 gradus:=30;
 a:=gradus;
 setcolor(c);
 zvezda1(x0,y0,r,a,gradus);
 repeat
 kod:=readkey;
 if kod=#0 then
 kod:=readkey;
 if kod=#75 then begin
  c:=c+1;
  setcolor(c);
  povorlevo(x0,y0,r,a,gradus,kod);
  end
  else
  if kod=#77 then begin
  c:=c+1;
  setcolor(c);
  povorpravo(x0,y0,r,a,gradus,kod);
  end;
until kod=#27;
end.