Переписать код программы с turbo pascal на abc паскаль

program laba5;
uses graph,crt;
var
   g,h:integer;
   a,b,x,y:integer;
   v1x,v1y,v2x,v2y,v3x,v3y,v4x,v4y:integer;
   u,ugol:integer;
   sa,sb,k:integer;
   r:integer;
   rad:real;
 
begin
g:=detect;
initgraph(g,h,' ');
a:=10;
b:=470;
rad:=3.14/180;
r:=55;
ugol:=90;
repeat
x:=a;
y:=b;
u:=0;
k:=1;
while k<=5 do begin
      v1x:=round(x+r*cos((4*ugol+u)*rad));
      v1y:=round(y+r*sin((4*ugol+u)*rad));
      v2x:=round(x+r*cos((ugol+u)*rad));
      v2y:=round(y+r*sin((ugol+u)*rad));
      v3x:=round(x+r*cos((2*ugol+u)*rad));
      v3y:=round(y+r*sin((2*ugol+u)*rad));
      v4x:=round(x+r*cos((3*ugol+u)*rad));
      v4y:=round(y+r*sin((3*ugol+u)*rad));
      setfillstyle(1,14);
      setcolor(14);
      moveto(v1x,v1y);
      lineto(v2x,v2y);
      lineto(v3x,v3y);
      lineto(v4x,v4y);
      lineto(v1x,v1y);
      floodfill(x,y,14);
      delay(25000);
      setfillstyle(1,black);
      setcolor(black);
      moveto(v1x,v1y);
      lineto(v2x,v2y);
      lineto(v3x,v3y);
      lineto(v4x,v4y);
      lineti(v1x,v1y);
      floodfill(x,y,black);
      u:=u+30;
      k:=k+1;
      end;
      b:=b+sb*5;
      a:=a+sa*5;
      if b<=10 then begin a:=630;b:=10;sb:=10;sa:=-13;end;
      if b>470 then begin a:=10;b:=470;sb:=-10; sa:=13;end;
      until keypressed;
      closegraph;
      end.