|
steelik
По ходу все у тебя работает: программа запускается, переходит в граф. режим и, после рисования линии, выходит из него и завершается. А оператор Readln; в граф. режиме не осуществляет задержку.
Попробуй вместо него поставить конструкцию вроде
repeat until (readkey=#13);
(Enter для выхода).
|