исправте ошибку!

[s.talke.r]

Program L14_2;
Uses Graph, CRT;
Label
l1;
var
d,m,e,x: Integer;
kod:integer;
begin
d := Detect; InitGraph(d, m, 'd:\coding\bp\bp\bgi ') ;
e := GraphResult; if e <> grOk then
WriteLn(GraphErrorMsg(e))
else
begin
Rectangle(306,300,322,380);
Ellipse(315,260,0,360,35,40);
Ellipse(315,270,0,360,10,10);
Line(310,257,310,385);
Line(312,257,312,385);
Line(314,257,314,385);
Line(316,257,316,385);
Line(318,257,318,385);
Line(322,380,322,395);
Line(322,395,300,395);
Line(300,395,306,380);
l1:
end;
if Readkey=#13 then CloseGraph else Goto l1;
end.

должно рисовать дискету, но у меня модуль Graph не работает((( и я никак не могу проверить, рисует ли дискету.
Должен получится рисунок дискеты