Найти периметр десятиугольника, - Turbo Pascal

Формулировка задачи:

1) В отделе кадров студентов хранится следующая информация о каждом студенте: фамилия, имя, отчество, пол, возраст, курс. Составить программу которая печатает номер курса, на котором самые распространенные мужские и женские имена, отчество и возраст которых являются одновременно самыми распространенными. 2) Даны действительные числа х1, у1, х2, у2, …,х10, у10. Найти периметр десятиугольника, вершины которого имеют соответственно координаты (х1, у1), (х2, у2), …, (х10, у10). (Определить процедуру вычисления расстояния между двумя точками, заданными своими координатами.) помогите решить( заранее благодарен

Решение задачи: «Найти периметр десятиугольника,»

Листинг программы

uses crt;
type mas=array [1..10] of real;
var x,y,z:mas;
    p: real;
    i: integer;
 
procedure Dlina(x1,y1,x2,y2: real; var z1: real);
begin
z1:= sqrt(sqr(y1-y2)+sqr(x1-x2));
end;
 
begin
p:=0;
for i:=1 to 10 do
    begin
    writeln ('Координаты вершины ',i);
    readln(x[i]);
    readln(y[i]);
    if i=10 then  Dlina(x[1],y[1],x[10],y[10],z[10])
       else Dlina(x[i],y[i],x[i+1],y[i+1],z[i]);
    end;
 for i:=1 to 10 do
     p:=p+z[i];
write ('Периметр десятиугольника = ',p:7:2);
readkey
end.

Объяснение кода листинга программы

Объявлены переменные: x, y, z - массив из 10 элементов типа real; p - переменная типа real; i - переменная типа integer.
Определена процедура Dlina, которая вычисляет длину отрезка между двумя точками на плоскости.
В основной программе объявлен цикл, который выполняется 10 раз.
В каждой итерации цикла запрашиваются координаты вершины десятиугольника и сохраняются в массиве x и y.
Если индекс равен 10, то вызывается процедура Dlina для первой и десятой вершин десятиугольника и результат сохраняется в z[10].
Если индекс меньше 10, то вызывается процедура Dlina для текущей вершины и следующей вершины десятиугольника и результат сохраняется в z[i].
После завершения цикла, вычисляется периметр десятиугольника как сумма длин всех его сторон и выводится на экран.
В конце программы запрашивается нажатие любой клавиши.