Pascal/Turbo Pascal - unidad grafica problema

holas buenas.
bueno recien estoy empezandoa estudiar programacion y me salto la curiosidad de ver algro de graficos en el pascal 7.0 pero no tengo los archivos bgi o algo aci alguien q me indique como solucionar este problema plisis

Los archivos *.bgi se encuentran en el directorio BGI de pascal 7 ejemplo:
c:\tp\bgi en el tienes la egavga.bgi driver de graficos.
Y en c:\tp\units la unidad graph.tpu.
Para lo cual tienes que iniciar los graficos como,
initgraph(el driver, el modo,`c:\tp\bgi'):

program graficos;
uses
Graph;

var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,'C:\tp\bgi');
ErrCode := GraphResult;
if ErrCode = grOk then
begin
Line(3, 3, GetMaxX - 3, GetMaxY - 3);
circle(getmaxx div 2,getmaxy div 2,30);
outtextxy(200,100,'>>>>>DEMOSTRACION GRAFICA<<<<<');
Readln;
CloseGraph;
end
else
Writeln('Error gr fico:', GraphErrorMsg(ErrCode));
end.