Mi lehet a problema? (Turbo Pascal)

Eleinte gondok voltak a graph unit erzekelesevel, de a pas file melle masolva mar okee. F9 gomb lenyomasara is "Successfully compiled", tehat nincs semmi gond, de mikor Crtl+F9-et nyomok, hogy lassak en is valamit, mar nem tortenik semmi. Alt+F5 lenyomasra kiirja, hogy "No error".

Itt van aa egyszeru pogramom...talan ez lenne hibas?

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.