Неизвестное имя Detect, как преобразовать на паскальАБС - PascalABC.NET

Формулировка задачи:

program Z_4_1;
 
Uses  Crt, Graph;
{const h=200;}
 
var
  grDrive: Integer;
  grMode: Integer;
  x0, y0: Integer;
  a: integer; {storona}
  t: integer;
  h: integer;
 
begin
  ClrScr;
  Write('Vvedite h -> ');
  readln(h);
  a := round(2 * h / sqrt(3)); {storona}
  t := round(a / 2); {pol storoni}
  grDrive := Detect;
  initGraph(grDrive, grMode, 'c:\tp\bgi');
  x0 := 0; {GetMaxX div 2;}
  y0 := GetMaxY - 50;
  SetColor(Red);
  Line(x0, y0, x0 + a, y0);
  Line(x0, y0, x0 + t, y0 - h);
  Line(x0 + t, y0 - h, x0 + a, y0);
  Delay(500);
  ReadLn;
  CloseGraph;
end.

Решение задачи: «Неизвестное имя Detect, как преобразовать на паскальАБС»

textual
                            Листинг программы 
                        

                            Program Z_4_1;
Uses  {Crt, }GraphABC;
{const h=200;}
 
var {grDrive : Integer;
    grMode : Integer;}
    x0,y0: Integer;
    a:integer; {storona}
    t: integer;
    h:integer;
 
Begin
     // ClrScr;
     Write('Vvedite h -> '); readln(h);
 
           a:=round(2*h/sqrt(3)); {storona}
           t:=round(a/2); {pol storoni}
 
 
     //grDrive:= Detect;
     //initGraph(grDrive,grMode,'c:\tp\bgi');
 
 
     x0:=0; {GetMaxX div 2;}
     y0:= WindowHeight - 50 ;
 
     SetPenColor(clRed);
     Line (x0,y0,x0+a,y0);
     Line (x0,y0,x0+t,y0-h);
     Line (x0+t,y0-h,x0+a,y0);
 
 
 
    // Delay(500);
 
    // ReadLn;
    // CloseGraph;
End.
                        