Определите периметры треугольников, заданных координатами их вершин

Program S9;
 
Procedure DistancePoint(x1,y1,x2,y2,d:Real);{считаем расстояние между x1,y1 и x2,y2}
Begin
d:=Sqrt(Sqr(x2 - x1) + Sqr(y2 - y1)); 
End;
 
Var
x1,y1,x2,y2,x3,y3,p1,p2,p3,P:Real;
Begin
WriteLn('Point 1');{это точка А}
ReadLn(x1,y1);
WriteLn('Point 2');{это точка В}
ReadLn(x2,y2);
WriteLn('Point 3');{это точка С}
ReadLn(x3,y3);
DistancePoint(x1,y1,x2,y2,p1);
DistancePoint(x2,y2,x3,y3,p2);
DistancePoint(x1,y1,x3,y3,p3);
P:=p1+p2+p3;
WriteLn('P = ',P);
ReadLn;
End.

Program S9; 
Function DistancePoint(x1,y1,x2,y2:Real):Real;{считаем расстояние между x1,y1 и x2,y2}
Begin
DistancePoint:=Sqrt(Sqr(x2 - x1) + Sqr(y2 - y1)); 
End;
 
Var
x1,y1,x2,y2,x3,y3,p1,p2,p3,P:Real;
Begin
WriteLn('Point 1');{это точка А}
ReadLn(x1,y1);
WriteLn('Point 2');{это точка В}
ReadLn(x2,y2);
WriteLn('Point 3');{это точка С}
ReadLn(x3,y3);
p1:=DistancePoint(x1,y1,x2,y2);
p2:=DistancePoint(x2,y2,x3,y3);
p3:=DistancePoint(x1,y1,x3,y3);
P:=p1+p2+p3;
WriteLn('P = ',P:6:2);
ReadLn;
End.

program Project1;
uses crt;
type mass=array [1..5,1..2] of integer;
  var x1,y1,x2,y2,x3,y3,p1,p2,p3,P:real; a,b,c:mass;
i,j:integer;
    Procedure DistancePoint(x1,y1,x2,y2:real; var c:real);
    Begin
      c:=sqrt(sqr(x2-x1)+sqr(y2-y1));
      end;
Begin
  randomize;
  for i:=1 to 5 do
  for j:=1 to 2 do
  Begin
    a[i,j]:=random(20);
    b[i,j]:=random(20);
    c[i,j]:=random(20);
    end;
  for i:=1 to 5 do
  Begin
    for j:=1 to 2 do
    write(a[i,j],' ');
    end;
  writeln;
  for i:=1 to 5 do
  Begin
    for j:=1 to 2 do
    write(b[i,j], ' ');
    end;
  writeln;
  for i:=1 to 5 do
  Begin
    for j:=1 to 2 do
    write(c[i,j], ' ');
    end;
  writeln;
for i:=1 to 5 do
Begin
DistancePoint(a[i,1],a[i,2],b[i,1],b[i,2],p1);
DistancePoint(b[i,1],b[i,2],c[i,1],c[i,2],p2);
DistancePoint(a[i,1],a[i,2],c[i,1],c[i,2],p3);
P:=p1+p2+p3;
writeln('P=',P:5:2);
readln;
end;