Вычислить длины сторон треугольника (не работает код)

program lp7;
var
a,b,c,x1,x2,x3,y1,y2,y3: real;
procedure s(x11,x21,x31,y11,y21,y31:real);
begin
a:=sqrt((x21-x11)*(x21-x11)+(y21-y11)*(y21-y11));
b:=sqrt((x31-x21)*(x31-x21)+(y31-y21)*(y31-y21));
c:=sqrt((x31-x11)*(x31-x11)+(y31-y11)*(y31-y11));
end;
begin
write('Введите координату x вершины A: ');
readln(x1);
write('Введите координату y вершины A: ');
readln(y1);
write('Введите координату x вершины B: ');
readln(x2);
write('Введите координату y вершины B: ');
readln(y2);
write('Введите координату x вершины C: ');
readln(x3);
write('Введите координату y вершины C: ');
readln(y3);
s(x1,x2,x3,y1,y2,y3);
writeln('AB = ',a);
writeln('BC = ',b);
writeln('AC = ',c);
end.

program lp7;
procedure dlina(x1,y1,x2,y2:real;var d:real);
begin
d:=sqrt(sqr(x1-x2)+sqr(y1-y2))
end;
var a,b,c,x1,x2,x3,y1,y2,y3: real;
begin
write('Введите координату x вершины A: ');
readln(x1);
write('Введите координату y вершины A: ');
readln(y1);
write('Введите координату x вершины B: ');
readln(x2);
write('Введите координату y вершины B: ');
readln(y2);
write('Введите координату x вершины C: ');
readln(x3);
write('Введите координату y вершины C: ');
readln(y3);
dlina(x1,y1,x2,y2,a);
writeln('AB = ',a:0:2);
dlina(x2,y2,x3,y3,b);
writeln('BC = ',b:0:2);
dlina(x3,y3,x1,y1,c);
writeln('AC = ',c:0:2);
end.