Простенькая задачка, на расчет Опции

[Костян]

Народ, всем салют, у мня к вам вот такой вот вопросик. Есть простенькая задача:написать прогу проверяющую лежат ли 3 точки заданные пользователем на одной прямой(каждая точка имеет две координаты-икс и игрек).
Вот в принципе эта прога:

Код

program vector;
uses crt;
var
x1,y1,x2,y2,x3,y3: real;
otrx1,otry1,otrx2,otry2: real;
begin
clrscr;
writeln('Введите 3 координаты');
readln(x1);
readln(y1);
readln(x2);
readln(y2);
readln(x3);
readln(y3);
otrx1:=x2-x1; otry1:=y2-y1;
otrx2:=x3-x1; otry2:=y3-y1;
if (otrx1=otrx2) and (otry1=otry2) then
writeln('Данные точки лежат на одной прямой')
else
writeln('Данные точки не лежат на одной прямой');
readkey;
end.

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