Вывод фигуры на экран в турбо поскале, помогите найти ошибку

Question

uses Graph; 
var x,y,i,Device,Mode:integer; 
begin 
Device:=0; 
InitGraph(Device,Mode, 'C:Program File\TP7\BGI'); 
x:=50; 
y:=50; 
rectangle(x,y,600,430); 
for i:=1 to 5 do 
begin 
x:=x+50; 
y:=y+50; 
rectangle(x,y,600,430); 
end; 
close Graph; 
end.

Рамиль Ахметжанов · Accepted Answer

В турбо паскале не силен, но шарохаясь в интернете нашел вот такой код 
{Исходный код программы на Turbo Pascal для процедуры InitGraph } 
Uses Graph; 
Var grDriver : Integer; 
grMode : Integer; 
ErrCode : Integer; 
Begin 
grDriver:=Detect; 
InitGraph(grDriver, grMode, ''); 
ErrCode:=GraphResult; 
If ErrCode = grOk Then 
Begin 
{ Графика } 
Line(0, 0, GetMaxX, GetMaxY); 
SetColor(14); 
rectangle(160, 10, 210, 80); 
SetLineStyle(DottedLn,2,NormWidth); 
SetColor(10); 
circle(300,60,20); 
ReadLn; 
CloseGraph; 
End 
Else WriteLn('Ошибка инициализации графики: ', GraphErrorMsg(ErrCode)); 
End. 
 
на основе него могу предположить что не правильно указан путь в функцие InitGraph() и желательно поймать GraphResult чтобы понять что за ошибка