Найте периметр треугольника, заданного координатами своих вершин, определив функцию для расчета длины отрезка по координатам его вершин- Pascal(Паскаль)

uses crt;
type point=record
           x,y:real;
           end;
function Dlina(a,b:point):real;
begin
Dlina:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
var a,b,c:point;
    d1,d2,d3,p:real;
begin
clrscr;
repeat
writeln('Введите координаты вершин треугольника:');
write('1- ');
readln(a.x,a.y);
write('2- ');
readln(b.x,b.y);
write('3- ');
readln(b.x,b.y);
d1:=Dlina(a,b);
d2:=Dlina(b,c);
d3:=Dlina(a,c);
if(abs(d1-d2)>=d3)or(d1+d2<=d3) then write('Это не треугольник!');
until (abs(d1-d2)<d3)and(d1+d2>d3);
p:=d1+d2+d3;
write('Периметр=',p:0:2);
readln
end.