помогите исправить ошибку. Программа сама работает, но я не знаю как сравнивать расстояние. На координатной плоскости x

помогите исправить ошибку. Программа сама работает, но я не знаю как сравнивать расстояние.
На координатной плоскости x и y даны три точки с координатами А (х1 у1) В (х2 у2) С (х3 у3). Надо поставить точку D на оси Х (У всегда 0) так чтобы сумма растояний от точек А В С до точки D была минемальной.
Код Pascal
uses crt;
var i,s,a,d,c,x0,s1,x1,x2,x3,y1,y2,y3,h:real;
begin
clrscr;
writeln('Vvedi koordinati x');
readln(x1,x2,x3);
writeln('Vvedi koordinati Y');
readln('y1,y2,y3);
h:=x3/10{Задаем шаг с которым будем перемещатся}
while i