Сделал перо и данные о линии глобальными переменнаыми, вынес изменение цвета и ширины линии в отдельные процедуры
Добавил функцию отрисовки отрезка