Если данные передаются не в массиве, а каждая точка- это запись, то алгоритм такой:
Код
function L(P1,P2:dot):real;
begin
L:=sqrt(sqr(P1.x-P2.x)+sqr(P1.y-P2.y));
end;
{бла-бла-бла}
begin
{бла-бла-бла}
WriteLn('Периметр равен ',L(P1,P2)+L(P2,P3)+L(P3,P4)+L(P1,P4));
end.
begin
L:=sqrt(sqr(P1.x-P2.x)+sqr(P1.y-P2.y));
end;
{бла-бла-бла}
begin
{бла-бла-бла}
WriteLn('Периметр равен ',L(P1,P2)+L(P2,P3)+L(P3,P4)+L(P1,P4));
end.
Правда данные точно должны быть в массиве, поэтому корректируйте
.