Какой из треугольников имеет наибольший периметр - Pascal ABC

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

Какой с N триугольников, заданых координатами своих вершын, имеет большый периметр?

Решение задачи: «Какой из треугольников имеет наибольший периметр»

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

const
  n=10;
var
  i,maxi: integer;
  x1,y1,x2,y2,x3,y3,a,b,c,p,maxp: real;
begin
  maxp:=0; maxi:=0;
  for i:=1 to n do begin
    writeln('Треугольник № ',i);
    write('x1 = '); readln(x1);
    write('y1 = '); readln(y1);
    write('x2 = '); readln(x2);
    write('y2 = '); readln(y2);
    write('x3 = '); readln(x3);
    write('y3 = '); readln(y3);
    a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
    b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
    c:=sqrt(sqr(x3-x1)+sqr(y3-y1));
    p:=a+b+c;
    if p>maxp then begin
      maxp:=p;
      maxi:=i;
    end;
  end;
  writeln('Ответ: треугольник № ',maxi);
end.

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

В начале объявляются все переменные, которые будут использоваться в коде.
Затем идет цикл for, который будет выполняться n раз (где n - это число, введенное пользователем).
Внутри цикла выводятся заголовки для каждого треугольника (номера от 1 до n), а также переменные x1, y1, x2, y2, x3, y3, a, b, c и p.
Затем вычисляется значение переменной a с помощью формулы площади треугольника по координатам вершин.
Аналогично вычисляются значения переменных b и c.
После этого вычисляется значение переменной p как суммы значений переменных a, b и c.
Если значение переменной p больше текущего максимального значения периметра (переменная maxp), то обновляется значение maxp и значение переменной maxi.
По завершении цикла выводится ответ на вопрос - номер треугольника с наибольшим периметром.