По координатам вершин треугольника вычислить его периметр

program treugolnik;
uses crt;
var
x1, y1, x2, y2, x3, y3, p:real;
 
function dlina(a1,b1, a2,b2:real):real;
begin
 dlina:=sqrt(sqr(a1-a2)+sqr(b1-b2));
end;
 
begin
 writeln('Введите координаты 1-ой вершины');
 write('x='); readln(x1);
 write('y='); readln(y1);
 writeln('Введите координаты 2-ой вершины');
 write('x='); readln(x2);
 write('y='); readln(y2);
 writeln('Введите координаты 3-ей вершины');
 write('x='); readln(x3);
 write('y='); readln(y3);
 p:=dlina(x1,y1,x2,y2)+dlina(x1,y1,x3,y3)+dlina(x2,y2,x3,y3);
 writeln('Периметр=',p);
end.

program treugolnik;
 
uses
  crt; //консолька
 
var
  x1, y1, x2, y2, x3, y3, p: real; //все необходимые  переменные
 
function dlina(a1, b1, a2, b2: real): real; //функция нахождения длины стороны.возвращает значение типа real
begin
  dlina := sqrt(sqr(a1 - a2) + sqr(b1 - b2)); //Ищем длину по теореме Пифагора(нарисуйте на листе 2 точки и соедините их.поймете сразу)
end;
 
begin
  writeln('Введите координаты 1-ой вершины');
  write('x='); readln(x1); //требуем ввод.вводим
  write('y='); readln(y1);
  writeln('Введите координаты 2-ой вершины');
  write('x='); readln(x2);
  write('y='); readln(y2);
  writeln('Введите координаты 3-ей вершины');
  write('x='); readln(x3);
  write('y='); readln(y3);
  p := dlina(x1, y1, x2, y2) + dlina(x1, y1, x3, y3) + dlina(x2, y2, x3, y3); //присваиваем значение фукнции другой переменной
  writeln('Периметр=', p:3:2); //выводим
end.