используя процедуры или функции вычислить объём тела

uses crt;
type
Point=record{объявим тип запись-точка}
      x,y:real;{поля-координаты точки}
      end;
 
{определение длины отрезка}
function Dlina(a,b:Point):real;
begin
Dlina:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));{теорема Пифагора}
end;
 
{вычисление координат точки пересечения высоты, опущенной на ось вращения с этой осью}
procedure Koor_Per(a,b,c:Point;var d:Point);
var k1,b1,k2,b2:real;
begin
{коэфф. уравнений.}
if b.x=a.x then{если прямая параллельна оси Y}
 begin
  d.x:=b.x;{абцисса=координате пересечения прямой с осью Х}
  d.y:=c.y;{ордината=ординате 3-ей точки}
 end
else{иначе вычисляем коэффициенты уравнений, решаем систему и находим координаты нужной точки}
 begin
{коэфф. 1-го уравн.}
  k1:=-(a.y-b.y)/(b.x-a.x);
  b1:=(a.x*b.y-b.x*a.y)/(b.x-a.x);
{коэфф. 2-го уравн.}
  k2:=-1/k1;
  b2:=-c.x*k2+c.y;
{коорд. точки пересечения}
  d.x:=(b2-b1)/(k1-k2);
  d.y:=k1*d.x+b1;
 end;
end;
 
{вычисление объема конуса}
function Obm_Kon(r,h:real):real;
begin
Obm_Kon:=pi*r*r*h/3;
end;
 
{вычисление объема фигуры}
function Obm_Fig(a,b,c,d:Point):real;
begin
if Dlina(a,d)<=Dlina(a,b)then{если эта точка внутри треугольника, складываем объемы 2х конусов}
Obm_Fig:=Obm_Kon(Dlina(c,d),Dlina(a,d))+Obm_Kon(Dlina(c,d),Dlina(b,d))
else if Dlina(a,d)>Dlina(a,b)then
{если снаружи (треугольник тупоугольный) - вычитаем из большего объема меньший}
Obm_Fig:=Obm_Kon(Dlina(c,d),Dlina(a,d))-Obm_Kon(Dlina(c,d),Dlina(b,d));
end;
{программа}
var m1,m2,m3,m4:Point;
begin
clrscr;
writeln('Введите координаты Х и Y 3х точек:');
write('M1.x=');readln(m1.x);
write('M1.y=');readln(m1.y);
write('M2.x=');readln(m2.x);
write('M2.y=');readln(m2.y);
write('M3.x=');readln(m3.x);
write('M3.y=');readln(m3.y);
Koor_Per(m1,m2,m3,m4);
write('Объем тела=',Obm_Fig(m1,m2,m3,m4):0:4);
readln
end.