Найдите площадь правильного шестиугольника со стороной а, используя подпрограмму вычисления площади треугольника - Pascal ABC

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

Дана была задача: найдите площадь правильного шестиугольника со стороной а, используя подпрограмму вычисления площади треугольника. На уроке мы немного разобрали ее и на основе этого я составила программу, но она не работает. В чем ошибка?

program _6;
function dlina(x1,y1,x2,y2:real):real;
begin
dlina:=sqrt(sqr(x1-x1))+sqr(y1-y2);
end;
function raz(p,a:real):real;
begin
raz:=p-a;
end;
function perimetr(x1,x2,x3,y1,y2,y3,a,b,c,p:real):real;
begin
read(x1,y1,x2,y2,x3,y3);
a:=dlina(x1,y1,x2,y2);
b:=dlina(x1,y1,x3,y3);
c:=dlina(x2,y2,x3,y3);
p:=(a+b+c)/2;
end;
var x1,y1,x2,y2,x3,y3,s,s1,p,a,b,c:real;
begin
read(x1,y1,x2,y2,x3,y3);
s1:=sqrt(p*raz(p,a)*raz(p,b)*raz(p,c));
s:=6*s1;
writeln(s);
end.

Решение задачи: «Найдите площадь правильного шестиугольника со стороной а, используя подпрограмму вычисления площади треугольника»

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

function pl_trg(a:real):real;
var p:real;
begin
p:=3*a/2;//полупериметр
pl_trg:=sqrt(p*(p-a)*(p-a)*(p-a));//площадь
end;

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

В данном коде реализована функция pl_trg, которая вычисляет площадь треугольника.

Объявлена переменная p типа real, которая инициализируется значением полупериметра треугольника (3*a/2).
Значение переменной p используется для вычисления площади треугольника по формуле S = sqrt(p(p-a)(p-a)*(p-a)).
Результат вычисления площади сохраняется в переменной pl_trg.
Функция завершается и возвращает значение площади треугольника. Код не содержит ошибок компиляции и является полностью рабочим.