Описать функцию Perim(xA, yA, xB, yB, xC, yC) вещественного типа, находящую периметр треугольника - Turbo Pascal

Формулировка задачи:

Всем привет, прошу помочь, совсем скоро нужно сдавать эту задачу, но мне эта тема далась не очень. Кто чем сможет, буду очень благодарен!!! Описать функцию Perim(xA, yA, xB, yB, xC, yC) вещественного типа, находящую периметр треугольника ABC по координатам его вершин (xA, yA, xB, yB, xC, yC — вещественные параметры). С помощью этой функции найти периметры треугольников ABC, ABD, ACD, если даны координаты точек A, B, C, D.

Решение задачи: «Описать функцию Perim(xA, yA, xB, yB, xC, yC) вещественного типа, находящую периметр треугольника»

Листинг программы

uses crt;
function Perim(xa,ya,xb,yb,xc,yc:real):real;
begin
Perim:=sqrt(sqr(xa-xb)+sqr(ya-yb))+sqrt(sqr(xb-xc)+sqr(yb-yc))+sqrt(sqr(xc-xa)+sqr(yc-ya));
end;
var ax,ay,bx,by,cx,cy,dx,dy:real;
    i:byte;
begin
clrscr;
writeln('Введите координаты 4х точек');
readln(ax,ay,bx,by,cx,cy,dx,dy);
writeln('Периметр треугольника АВС=',Perim(ax,ay,bx,by,cx,cy):0:2);
writeln('Периметр треугольника АВD=',Perim(ax,ay,bx,by,dx,dy):0:2);
writeln('Периметр треугольника АCD=',Perim(ax,ay,cx,cy,dx,dy):0:2);
readln
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая используется для вычисления квадратного корня в функции sqr.
Затем определяется функция Perim, которая принимает 6 аргументов вещественного типа (xa, ya, xb, yb, xc, yc) и возвращает значение периметра треугольника.
Внутри функции Perim вычисляется периметр треугольника по формуле: sqrt(sqr(xa-xb)+sqr(ya-yb))+sqrt(sqr(xb-xc)+sqr(yb-yc))+sqrt(sqr(xc-xa)+sqr(yc-ya)));
Далее определены переменные ax, ay, bx, by, cx, cy, dx, dy, которые будут использоваться для ввода координат точек.
После этого происходит чтение координат 4х точек с помощью функции readln.
Выводится сообщение с просьбой ввести координаты точек.
Затем вычисляется периметр треугольника для каждой из трех комбинаций точек: АВС, АВD, АCD.
Для каждой комбинации выводится соответствующее значение периметра.
Конец программы.