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

type //Точка с координатами (x, y)
  Vertex = record
  x, y: real
end;
 
///Возвращает площадь треугольника по координатам трех вершин V1, V2 и V3
function AreaTriangle(V1, V2, V3: Vertex): real;
begin
  result := abs((v1.x - V3.x) * (V2.y - V3.y) - (v2.x - V3.x) * (V1.y - V3.y)) / 2
end;
 
///Возвращает длину отрезка с координатами точек V1 и V2
function Length(V1, V2: Vertex): real;
begin
  result := sqrt(sqr(V1.x - V2.x) + sqr(V1.y - V2.y))
end;
 
var
  V: array[1..4] of Vertex;
  N: Byte;
  p, S: real;
  
begin
  writeln('Введите количество вершин: ');
  repeat
    write('N = ');
    N := ReadlnInteger;
    if (N < 2) or (N > 4) then writeln('Неправильный ввод!')
  until (N > 1) and (N < 5);
  writeln;
  writeln('Введите ', N, ' пары координат:');
  for var i := 1 to N do begin
    write(i, '-я пара координат: ');
    readln(V[i].x, V[i].y)
  end;
  writeln; //Отрезок:
  if N = 2 then writeln('Длина отрезка: ', Length(V[1], V[2]):0:2)
  else //Треугольник:
  if N = 3 then begin
    p := Length(V[1], V[2]) + Length(V[1], V[3]) + Length(V[2], V[3]);
    writeln('Периметр треугольника: ', p:0:2);
    S := AreaTriangle(V[1], V[2], V[3]);
    writeln('Площадь треугольника: ', S:0:2)
  end //Четырехугольник (предполагается, что он существует).
  else begin //V[1], V[2], V[3], V[4] - последовательные координаты:
    p := Length(V[1], V[2]) + Length(V[2], V[3]) + Length(V[3], V[4]) + Length(V[4], V[1]);
    writeln('Периметр четырехугольника: ', p:0:2);
    S := AreaTriangle(V[1], V[2], V[3]) + AreaTriangle(V[1], V[3], V[4]);
    writeln('Площадь етырехугольника: ', S:0:2)
  end
end.