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

program perimetr_treugolnika;
type
mas=array[1..3] of integer;
 
procedure readkoor (var a,b:mas);
var
i:integer;
begin
for i:=1 to 3 do begin
read(a[i]);
read(b[i]);
end;
end;
 
procedure perimetr(a,b:mas);
 
function d(x1,x2,y1,y2:integer):real;
begin
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
 
function triangle(a,b:mas):boolean;
var
d1,d2,d3:real;
f:boolean;
begin
d1:=d(a[1],a[2],b[1],b[2]);
d2:=d(a[2],a[3],b[2],b[3]);
d3:=d(a[3],a[1],b[3],b[1]);
if (abs(d1-d2)<d3) and (d1+d2>d3) then f:=true
else f:=false;
triangle:=f;
end;
 
var
p:real;
begin
if triangle(a,b) then begin
p:=d(a[1],a[2],b[1],b[2])+d(a[2],a[3],b[2],b[3])+d(a[3],a[1],b[3],b[1]);
writeln('P=',p:0:4);
end
else writeln('This is not triangle!');
end;
 
var
a,b:mas;
 
BEGIN
writeln('vvedit koordunatu trukytnuka 4erez probil');
readkoor(a,b);
perimetr(a,b);
readln
END.