Не могу инициализировать графику.

[Antiterror]

BGI Error: Graphics not initialized (use InitGraph)
Компилирует хорошо. При открытии программы Выскакивает ошибка.
Работаю с Turbo Pascal 7.1 . Вот код программы.
Если нужно вышлю всю программу. Это начало и концовка где инициализирую графику
Program Space;
Uses Graph, Crt,Dos;
const centrx=300;
centry=160;


Procedure MainMenu;
Const menu:array[1..2] of string[20]=('New game!','Exit');
Var i,y1: integer;
pos:byte;
kb:char;
Begin
kb:=#1;
SetTextStyle(4,0,2);
pos:=1; y1:=centry-30;
for i:=1 to 2 do
begin
if i=pos then
begin
setcolor(1);
OutTextXY(230,y1,'New game!');
end
else begin
setcolor(15);
OutTextXY(230,y1,'Exit');
end;

y1:=y1+30;
end;
repeat
y1:=centry-30;
kb:=readkey;
case kb of
#72:if pos>1 then
Dec(pos)
else pos:=3;

#80:if pos<2 then
Inc(pos)
else pos:=1;
end;

for i:=1 to 2 do
begin
if i=pos then
begin
setcolor(1);
OutTextXY(230,y1,menu[i]);
end
else begin
setcolor(15);
OutTextXY(230,y1,menu[i]);
end;
y1:=y1+30;
end;
until kb=#13;
begin
if pos=1 then begin game;
cleardevice;
end;

if pos=2 then
halt;
end;

end;

procedure grinit;
var GrMode, GrError,GrDriver:Integer;

begin
GrDriver := EGA; GrMode := EGAHi;
InitGraph(GrDriver, GrMode, 'C:\TP\BGI');
GrError := GraphResult;
end;
Var
ch:char;
{ k:integer;}

BEGIN
Grinit;
MainMenu;


END.

[Pein95]

попробуй паскаль переустановить
поставь turbo pascal 7.0