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

Type Tochka=record
      X:real;
      Y:real;
     end;
 
     Treugoln=record
      A:Tochka;
      B:Tochka;
      C:Tochka;
     end;
Function DLina(A,B:Tochka):real
begin
DLina:=sqrt(sqr(A.x-B.X)+sqr(A.y-B.y));
end;
function STr(T1:Treugoln):real;
 var P:real;
     S:real;
     a,b,c:real;
 begin
  a:=DLina(t1.A,T1.B);
  b:=DLina(t1.B,T1.C);
  c:=DLina(t1.A,T1.C);
  p:=(a+b+c)/2;
  s:=sqrt (p*(p-a)*(p-b)*(p-c));
  STr:=S;
 end;
end.

const nmax=21;//макс. число вершин+1
function D(x1,y1,x2,y2:real):real;//длина стороны
begin
D:=sqrt(sqr(x1-x2)+sqr(y1-y2))
end;
procedure Sq(x1,y1,x2,y2,x3,y3:real;var s:real);//площадь треугольника
var p:real;
begin
p:=(D(x1,y1,x2,y2)+D(x1,y1,x3,y3)+D(x2,y2,x3,y3))/2;//полупериметр
s:=sqrt(p*(p-D(x1,y1,x2,y2))*(p-D(x1,y1,x3,y3))*(p-D(x2,y2,x3,y3)))
end;
var m:array[1..2,1..nmax] of real;//массив вершин
    n,i:byte;
    x,y,s1,s:real;
begin
clrscr;
repeat
write('Введите количество вершин от 3 до ',nmax-1,' n=');
readln(n);
until n in [3..nmax-1];
writeln('Введите координаты вершин выпуклого многоугольника в порядке обхода:');
for i:=1 to n do
 begin
  writeln('вершина ',i);
  write('- x=');
  readln(m[1,i]);
  write('- y=');
  readln(m[2,i]);
 end;
m[1,n+1]:=m[1,1];//добавим вершину=дубль первой
m[2,n+1]:=m[2,1];
x:=0;//найдем кординаты центра тяжести
y:=0;
for i:=1 to n do
 begin
  x:=x+m[1,i];
  y:=y+m[2,i];
 end;
x:=x/n;
y:=y/n;
s:=0;//найдем плошадь
for i:=1 to n do
 begin
  Sq(x,y,m[1,i],m[2,i],m[1,i+1],m[2,i+1],s1);
  s:=s+s1
 end;
write('Площадь=',s:0:2);
readln
end.