Длину отрезка можно найти по формуле
var xa,xb,ya,yb:integer; {объявляем координаты точек}
dl: real; {в dl будем записывать найденную длину отрезка}
begin
xa:=10;ya:=2; {присваиваем значения координатам точек}
xb:=10;yb:=7;
dl:=sqrt(sqr(xb-xa)+sqr(yb-ya)); {считаем длину отрезка по формуле приведённой выше}
writeln ('длина отрезка=',dl); {выводим длину отрезка}
end.