Треугольник задан координатами своих вершин. Найти периметр треугольника — Pascal(Паскаль)

uses crt;
function Dlina(x1,y1,x2,y2:real):real;
begin
Dlina:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
var x1,y1,x2,y2,x3,y3,a,b,c,p:real;
begin
clrscr;
repeat
writeln('Введите координаты вершин треугольника:');
readln(x1,y1,x2,y2,x3,y3);
a:=Dlina(x1,y1,x2,y2);
b:=Dlina(x1,y1,x3,y3);
c:=Dlina(x2,y2,x3,y3);
if (a<=abs(b-c))or(a>=b+c)
then writeln('Это не треугольник, повторите ввод.');
until (a>abs(b-c))and(a<b+c);;
p:=a+b+c;
write('Периметр=',p:0:2);
readln
end.