Найти периметр N-угольника, заданного на плоскости координатами своих вершин. (Написать функцию для нахождения длины стороны N-угольника). Паскаль, через функции пользователя.

Program n1;
var
i, n: integer;
x,y : array[1..100] of integer;
per: real;
function dlina(x1,x2,y1,y2 : integer) : real;
begin
dlina := sqrt(sqr(x2-x1) + sqr(y2-y1));
end;
begin
write(введите кол-во сторон: );
readln(n);
per := 0;
write(введите x1 координату: );
readln(x[1]);
write(введите y1 координату: );
readln(y[1]);
for i:=2 to n do
begin
write(введите х,i, координату: );
readln(x[i]);
write(введите y,i, координату: );
readln(y[i]);
per := per + dlina(x[i-1],y[i-1],x[i],y[i]);
end;
per := per + dlina(x[i],y[i],x[1],y[1]);
writeln(периметр искомого ,n, угольника,per);
readln;
end.