Поворот фигуры вокруг оси

Uses
 Crt,graph;
Var
 a:array [1..6] of integer;
 h,dr,k,re,i,w,l:integer;
 xh:real;
begin
 dr:=detect;
 initgraph(dr,re,'C:\Pascal\bgi');
 {setcolor(7);  }
 h:=1;
 a[1]:=318; a[2]:=200;
 a[3]:=440;
 repeat
 setcolor(9);
 ClearDevice;
 setlinestyle(2,0,2);
 {linia}
 line(265,100,265,420);
 setlinestyle(0,0,2);
 setcolor(5);
 line(a[1],170,a[2],320);
 line(a[1],170,a[3],320);
 line(a[2],320,a[3],320);
 setfillstyle(6,5);
 floodfill(319,175,5);
 a[1]:=a[1]+h;
 a[2]:=a[2]-h;
 a[3]:=a[3]-h;
 delay(2000);
 until a[1]>270;
repeat
 setcolor(9);
 ClearDevice;
 setlinestyle(2,0,2);
 {linia}
 line(265,100,265,420);
 setlinestyle(0,0,2);
 setcolor(5);
 line(a[1],170,a[2],320);
 line(a[1],170,a[3],320);
 line(a[2],320,a[3],320);
 setfillstyle(6,5);
 floodfill(266,277,5);
{ putpixel(266,277,12); }
 a[1]:=a[1]+h;
 a[2]:=a[2]-h;
 a[3]:=a[3]-h;
 delay(2000);
until a[1]>370;
 readln;
 closegraph
end.