Преобразовать в Паскаль АВС. Выдает ошибку в модуле Detect.

program fish;
uses Crt,graph;
const a=180;b=270;c=360;
var gd,gm,r,x,y,n,m,i,j,s,q,mx,my:integer;
okey:boolean;
begin
clrscr;
writeln ('введите размер (радиус)чешуи от 5 до 100:');
repeat
readln(r);
okey:=(r>=5) and (r<=100);
if not okey then writeln('Повторите, пожалуйста!');
until okey;
gd:=Detect;
InitGraph(gd,gm, 'c:\bp\bgi\');
SetColor(6);
mx:=GetMaxX;
my:=GetMaxY;
n:=mx div (2*r);
m:=my div r;
s:=(mx-n*2*r)div 2;
x:=s;
q:=(my-m*r)div 2;
y:=q;
RecTangle(x,y,mx-x,my-y);
my:=-1;
for i:=1 to m do
begin
my:=-my;
for j:=1 to n do
begin
Arc(x+my*r,y,b,c,r);
Arc(x+r,y,a,b,r);
x:=x+2*r;
end;
x:=r*(i mod 2)+s;
y:=y+r;
end;
Readln;
CloseGraph;
end.

program fish;
uses Crt,graphabc;
const a=180;b=270;c=360;
var r,x,y,n,m,i,j,s,q,mx,my:integer;
okey:boolean;
begin
clrscr;
writeln ('ââåäèòå ðàçìåð (ðàäèóñ)÷åøóè îò 5 äî 100:');
repeat
readln(r);
okey:=(r>=5) and (r<=100);
if not okey then writeln('Ïîâòîðèòå, ïîæàëóéñòà!');
until okey;
SetpenColor(6);
mx:=windowwidth;
my:=windowheight;
n:=mx div (2*r);
m:=my div r;
s:=(mx-n*2*r)div 2;
x:=s;
q:=(my-m*r)div 2;
y:=q;
RecTangle(x,y,mx-x,my-y);
my:=-1;
for i:=1 to m do
begin
my:=-my;
for j:=1 to n do
begin
Arc(x+my*r,y,b,c,r);
Arc(x+r,y,a,b,r);
x:=x+2*r;
end;
x:=r*(i mod 2)+s;
y:=y+r;
end;
Readln;
end.