Заданы координаты трех вершин треугольника (x1,y1), (x2,y2),(x3,y3). Найти его периметр и площадь — Pascal(Паскаль)

var
  a1, a2, b1, b2, c1, c2: integer;
  l1, l2, l3, per, S: real;

label 1;

begin
1:;
  writeln('Введите координаты точки А');
  readln(a1, a2);
  writeln('Введите координаты точки B');
  readln(b1, b2);
  writeln('Введите координаты точки C');
  readln(c1, c2);
  l1 := sqrt(sqr(b1 - a1) + sqr(b2 - a2));
  l2 := sqrt(sqr(c1 - a1) + sqr(c2 - a2));
  l3 := sqrt(sqr(b1 - c1) + sqr(b2 - c2));
  if (l1 <> 0) and (l2 <> 0) and (l3 <> 0) then
  begin
    per := l1 + l2 + l3;
    writeln('Периметр треугольника равен ', per:2:2);
    S := sqrt((per / 2) * (per / 2 - l1) * (per / 2 - l2) * (per / 2 - l3));
    writeln('Площадь треугольника равна ', S:2:2)
  end
  else
  begin
    writeln('Введеные координаты некорректны! Попробуйте еще раз...');
    goto 1
  end;

end.