Hogyan kell a Graph Unitot inicializalni, mert magatol nem talalja, pedig benne van az unitos csomagban? (Turbo Pascal)

Koszi a valaszokat, most mar megtalalja, mert tanacsotokra melleje masoltam a graph.tpu file-t. Kiirja F9 gombnyomasra, hogy "successfully compiled", minden okee, de megsem latok semmit. Alt+F5 es kiirja a kepernyore h "No Error". De en megsem latok semmit!!! Itt az egyszeru kod, amit csinaltam, talan benn e van hiba:?

program graphic;

uses crt, graph;

var gd,gm,x1,x2,y1,y2:integer;

procedure graphstart;

begin

gd:=detect;

initgraph(gd,gm,'d:\TP\TP\BIN');

if graphresult<>0 then begin

writeln(grapherrormsg(graphresult));

halt;

end;end;

begin

clrscr;

graphstart;

x1:=4;

x2:=3;

y1:=2;

y2:=3;

bar(x1,y1,x2,y2); closegraph;

readln;

end.