Код из турбо паскаля, запустить на паскале abc

uses graph;
var
d,m:integer;
x,y,cx,cy,wx,wy,theta,q,n,r:real;
i:longint;
begin
d:=detect;
initgraph(d,m,'c:\bp\bgi');
x:=getmaxx;
y:=getmaxy;
for i:=1 to 100000 do
    begin
 cx:=sin(x)/cos(x);
 cy:=x;
 wx:=x-cx;
 wy:=y-cy;
  if wx>0 then theta:=arctan(wy/wx);
  if wx<0 then theta:=pi+arctan(wy/wx);
  if wx=0 then theta:=pi/2;
    theta:=theta/2;
      r:=sqrt(sqr(wx+sqr(wy)));
  if random>0.5 then
    r:=sqrt(r)
     else r:=-sqrt(R);
x:=r*cos(theta);
y:=r*sin(theta);
q:=-5+x*100+getmaxx/2;
n:=y*100+getmaxy/2;
putpixel(trunc(Q),trunc(n),13);
end;
readln;
closegraph;
readln
end.

uses graphabc;
var
d,m:integer;
x,y,cx,cy,wx,wy,theta,q,n,r:real;
i:longint;
begin
x:=500;
y:=300;
for i:=1 to 100000 do
    begin
 cx:=sin(x)/cos(x);
 cy:=x;
 wx:=x-cx;
 wy:=y-cy;
  if wx>0 then theta:=arctan(wy/wx);
  if wx<0 then theta:=pi+arctan(wy/wx);
  if wx=0 then theta:=pi/2;
    theta:=theta/2;
      r:=sqrt(sqr(wx+sqr(wy)));
  if random>0.5 then
    r:=sqrt(r)
     else r:=-sqrt(R);
x:=r*cos(theta);
y:=r*sin(theta);
q:=-5+x*100+500/2;
n:=y*100+300/2;
putpixel(trunc(Q),trunc(n),13);
end;
end.

 r:=sqrt(sqr(wx)+sqr(wy));