Подпрограммы: зная координаты вершин четырехугольника, найти его периметр

function len(x1,y1,x2,y2: real):real;
begin
     len:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
end;
var x1,x2,x3,x4,y1,y2,y3,y4: real;
begin
     write('Enter x1,y1: '); readln(x1,y1);
     write('Enter x2,y2: '); readln(x2,y2);
     write('Enter x3,y3: '); readln(x3,y3);
     write('Enter x4,y4: '); readln(x4,y4);
     writeln('P = ',len(x1,y1,x2,y2)+len(x2,y2,x3,y3)+len(x3,y3,x4,y4)+len(x4,y4,x1,y1));
end.

function len(x1, y1, x2, y2: real): real;
begin
  len := sqrt(sqr(x2-x1)+sqr(y2-y1))
end;
type pt = record x, y: real end;
var t: array [0..3] of pt;
    i: integer;
    p: real;
begin
  writeln('Enter coordinates of tops of a quadrangle:');
  for i := 0 to 3 do
    begin
      write('x', i + 1, ' = ');
      readln(t[i].x);
      write('y', i + 1, ' = ');
      readln(t[i].y)
    end;
  p := 0;
  for i := 0 to 3 do
    p := p + len(t[i].x, t[i].y, t[(i + 1) mod 4].x, t[(i + 1) mod 4].y);
  write('Perimeter = ', p:0:3);
  readln
end.