Ну, я как бы попросил Вас помочь коллеге, а не путать его.

Мы же договорились - я указываю коллеге на ошибки, а Вы - их исправляете, и, заодно, учитесь.

Цитата 1nt3g3r ()
не понимаю сути вашей проблемы
Дык, я же объяснил.

Цитата 1nt3g3r ()
я забыл поставить точку с запятой перед end
Наоборот, точка с запятой перед end - это ошибка.

uses GraphABC;

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

procedure MouseDown(x,y,mb: integer);
begin
if mb=1 then
begin
if ((oldX <> 0) and (oldY <> 0)) then Line(oldX, oldY, x, y);

oldX := x;
oldY := y;
end
end;

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

OnMouseDown:=MouseDown;
end.

Цитата 1nt3g3r ()
Заметьте, ПОСЛЕ того, как вы привели аргументы, вопросы к вам отпали.
Брехня. Ответы были даны в постах #7 и #13, а обвинения в неаргументированности - вплоть до #23.

Цитата 1nt3g3r ()
Называть людей, которые пишут коммерческие продукты, быдлокодерами, а их занятие - быдлокодингом - это немного высокомерно, не находите?
Это немного неуместно в этой теме. Тем более, что обвиняли их в быдлокодинге Вы: "лучше программа с ошибками сегодня, чем программа без ошибок через год".

Цитата 1nt3g3r ()
Вы со скрипом обосновали лишь один пункт ваших многочисленных раздумий.
Заметьте ДО того, как Вы облыжно обвинили меня в обратном. Я же специально дал Вам право "свободного выстрела".

Цитата 1nt3g3r ()
Если мы пройдемся по всему, что вы писали...
Хотите еще попробовать?

А разве в названии темы есть что-то про коммерческую разработку? Мы говорим о программировании, а не о быдлокодинге. Заранее повтряю цитату Дейкстры:
Цитата
Наконец, эта задача позволяет нам рассеять некоторые сомнения, вызванные тем, что коммерческие программы являются чем-то особенным. (Если уж говорить о чем-то особом, то, скорее, о характере коммерческих программистов...).

uses GraphABC;

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

procedure MouseDown(x,y,mb: integer);
begin
if mb=1 then
begin
if ((oldX <> 0) and (oldY <> 0)) then Line(oldX, oldY, x, y);

oldX := x;
oldY := y;
end
end

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

OnMouseDown:=MouseDown;
end.

Я написал, что "Тестирование программы не может доказать отсутствия в ней ошибок"? Я привел обоснование? Я привел пример? Я привел ссылку на литературу?

Так где Ваше: "Простите, дяденька, засранца!"?

А то, что Ваше: "Но бОльшую часть - вполне",- это обычная присказка быдлокодера, это уже совсем другой вопрос.

В строке a: = x; ругается что "Встречено ':', а ожидалось ';'"

Совершенно не обязательно. Как Вы сами писали, 5 маленьких программ, это не одна большая. Разные программы могут использовать этот класс по-разному. Другие классы могут на него влиять. Даже настройки компилятора могут быть разными. Я однажды имел дело с программой, которая ровно на 15-й секунде душила сама себя сообщениями между вполне себе отлаженными компонентами.

Т.к. я не видел еще ни одной неэлементарной программы без критических ошибок, то склонен этому правилу верить. Законы Мэрфи - это не шутка, это напоминание о "трении войны".

Тестирование программы не может доказать отсутствия в ней ошибок

Тут-то его и чморнули: мол, только чайник не знает, что тестовые схемы паяются на прибалтийских транзисторах, а серийные - на ташкентских.

Аксиома:
В любой протестированной программе есть две серьезные ошибки. И это число не зависит от числа уже выявленных и исправленных ошибок (или тех, что будут выявлены или исправлены позже).

Даже в случае полностью детерминированных машин полезность тестирования программ оказывается сомнительной. Тестирование программы может вполне эффективно служить для демонстрации наличия в ней ошибок, но, к сожалению, непригодно для доказательства их остуствия

Цитата 1nt3g3r ()
Программа завершит работу лишь тогда, когда пользователь закроет окно.
Формально, да. Но отработает она "до". Иначе бы некоторые On... не успели бы загрузиться. Возможно, в Pascal ABC и есть какие-либо дополнительные средства синхронизации окна с программой, но в их отсутствие с окном работают только обработчики событий. .

Программный курсор стоит на "end". Это азбука любых программ, работающих с окнами

Цитата 1nt3g3r ()
Нет - если использовать TDD (Unit-тесты), время на отладку сильно сокращается.

Забудьте. Это очередная байка для умственно отсталых. Единственное, что нужно знать о тестах: они ничего не доказывают. Это просто удобная кормушка для около-программистов.

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

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

uses GraphABC;

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

procedure MouseDown(x,y,mb: integer);
begin
if mb=1 then
begin
if (oldX <> 0 and oldY <> 0) then Line(oldX, oldY, x, y);

oldX = x;
oldY = y;
end
end

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

OnMouseDown:=MouseDown;
end.