как заставить запуститься эту графику

[Aion]

не запустить,пишет,что не найти ему юнит с графикой мля тыарь эдакая..

[alex_fcsm]

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

program xxx;
uses GRAPH;
var graphdriver,graphmode,x1,x2,y2,y1,shagm,shagn,chastn,chastm,i,g,n,m:integer;
begin
graphdriver:=detect;
INITGRAPH(graphdriver,graphmode,'C:\Program Files\TURBO PASCAL 7.1\UNITS');
readln(x1,y1,x2,y2);
readln(g);
n:=y1-y2;
m:=x2-x1;
rectangle(x1,y1,x2,y2);
if odd(g) then
begin
line(x1,y1,x2,y2);
shagm:=trunc(m/((g-1)/2));
shagn:=trunc(n/((g-1)/2));
for i:=1 to (g-1)div 2 do
begin
line(x1,y1,x1+i*shagm,y2);
line(x1,y1,x2,y1-i*shagn);
end;
end
else
begin
chastm:=trunc(m/(g/2));
chastn:=trunc(n/(g/2));
for i:=1 to g div 2 do
begin
line(x1,y1,x1+i*2*chastm,y2);
line(x1,y1,x2,y1-i*2*chastn);
end;
end;
readln;
end.

[Aion]

благодарю)) запускается,но не работает 8))
помогите плс=))
задание:по заданным значениям координат левого верхнего и правого нижнего углов прямоугольника нарисовать N лучей, выходящих из левого верхнего угла и делящих его на равные части.