Нужно перевести код из Turbo Pascal в Pascal ABC.NET

uses crt,graph;
 
var drive,mode,x,y,i,t,y0:integer;
 
begin
 
drive:=detect;
 
initgraph(drive,mode,'c:\tp\bgi');
 
setfillstyle(1,1);
 
floodfill(1,4,1);
 
t:=–4;
 
y0:=10;
 
setcolor(16);
 
for i:=1 to 150 do
 
begin
 
t:=t+2;
 
y0:=y0+3;
 
x:=getmaxx div 2 + trunc(cos(t/10)*i);
 
y:=y0 – trunc(sin(t/10)*i);
 
setfillstyle(1,14);
 
fillellipse(x,y,20,20);
 
delay(100);
 
end;
 
repeat
 
until keypressed;
 
closegraph;
 
end.

uses GraphABC;
const r = 200; rc = 4; d = 0.1;
begin
  Line(Window.Center.X-rc,Window.Center.Y,Window.Center.X+rc,Window.Center.Y);
  Line(Window.Center.X,Window.Center.Y-rc,Window.Center.X,Window.Center.Y+rc);
  Pen.Color := clBlue;
  Brush.Color := clRed;
  var angle := 0.0;
  repeat
    Circle(Window.Center.X + Round(Cos(angle)*r), Window.Center.Y - Round(Sin(angle)*r), rc);
    angle += d;
  until angle > 2*pi;
end.

uses graphABC;
var x,y,i,t,y0:integer;
begin
setwindowsize(400,650);
centerwindow;
clearwindow(clBlue);
t:=-4;
y0:=10;
setpencolor(clBlack);
setbrushcolor(clYellow);
for i:=1 to 150 do
 begin
  t:=t+2;
  y0:=y0+3;
  x:=windowwidth div 2 + trunc(cos(t/10)*i);
  y:=y0-trunc(sin(t/10)*i);
  circle(x,y,20);
  sleep(100);
 end;
 
end.