uses GraphABC;

var a,b: integer; //координаты мышки

procedure MouseDown(x,y,mb: integer);
begin
if mb=1 then // передаем координаты мышки в переменные а и б
a : = x;
b := y;
end;

begin
SetWindowTitle('123');
Setwindowsize(800,600); //размер окна

OnMouseDown:=MouseDown; //1 клик, передаем координаты мышки в начальные координаты лайна
x1: = a;
y1: = b;

OnMouseDown:=MouseDown; //2 клик, передаем тоже самое только в конечные
x2 : = a;
y2 : = b;

Line(x1,y1,x2,y2); //рисуем

end.