Рисование линий

Процедура Line (x1, y1, x2, y2: integer) вычерчивает линию между двумя точками экрана с координатами (x1, y1) и (x2, y2).

Процедура LineTo (x, y: integer) вычерчивает линию от последнего положения указателя до точки с координатами (x, y). (Перед этой процедурой необходимо использовать GoToXY(x,y:integer);)