На плоскости даны две точки a(x1,y1), b(x2,y2). Составить программу, определяющую, принадлежит ли точка z(x,y)

type tchk=record
     x,y:real;
   end;  
var
  a,b,z:tchk;
  A1,B1,C1,D1,d:real;
begin
  write('Введите координаты точки A(x,y):');  readln(a.x,a.y);
  write('Введите координаты точки B(x,y):');  readln(b.x,b.y);  
  write('Введите координаты точки Z(x,y):');  readln(z.x,z.y);  
  write('Введите D :');  readln(d);
{координаты проходящей прямой}
  A1:=(a.y-b.y);
  B1:=(b.x-a.x);
  C1:=(a.x*b.y-b.x*a.y);
{расстояние от точки z до прямой}
  D1:=abs(A1*z.x+B1*z.y+C1)/sqrt(sqr(A1)+sqr(B1));
  if d1<>d then write('не');
  writeln(' принадлежит');
end.

type tchk=record
     x,y:real;
   end;
var
  a,b,z:tchk;
  d,da,db,r:real;
begin
  write('Введите координаты точки A(x,y):');  readln(a.x,a.y);
  write('Введите координаты точки B(x,y):');  readln(b.x,b.y);
  write('Введите координаты точки Z(x,y):');  readln(z.x,z.y);
  write('Введите D :');  readln(d);
{квадраты расстояний от точки z до точек a,d}
  da:=sqr(a.x-z.x)+sqr(a.y-z.y);
  db:=sqr(b.x-z.x)+sqr(b.y-z.y);
  r:=abs(da-db);{разность квадратов расстояний}
  if abs(r-d)<0.001 then write('принадлежит'){если модуль разности меньше некоторой точности}
  else write(' принадлежит');
end.

else write(' принадлежит');