如何用Pascal编一个画直线的程序

运行这个程序前,必须先做几件事:
1:下载crt补丁
2:把graph单元文件放在与源程序同一层目录下
3:把tp7中bgi文件夹下所有文件放在与源程序同一层目录下

uses graph,crt;
var gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
line(x坐标1,y坐标1,x坐标2,y坐标2);
readkey;
end.

begin
write('------------------------------');
end.