Перепишите код пожалуйста с Turbo Pascal в PascalABC

uses graph;
var x0,y0,x,y,a:integer;
t:real;
begin x:=0;
initgraph(x,y,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
a:=100;
t:=0;
setcolor(12);
while t<=2pi do begin x:=x0+round(acos(t)(1+cos(t)));
y:=y0-round(asin(t)*(1+cos(t)));
if t=0 then moveto(x,y) else lineto(x,y);
t:=t+0.01;
end;
readln
end.