Треугольник задан своими координатами своих вершин. Вычислить площадь треугольника с использованием функции нахождения расстояния между двумя точками — Pascal(Паскаль)

Program func7;

Uses crt;

Var
  x1, y1, x2, y2, x3, y3: integer;
  S, p: real;

Function rast(a, b: integer): real;
Begin
  rast := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
End;

Begin
  Writeln('введите координаты 1 точки x1 и  y1');
  readln(x1, y1);
  Writeln('введите координаты 2 точки x2 и  y2');
  readln(x2, y2);
  Writeln('введите координаты 3 точки x3 и  y3');
  readln(x3, y3);
  p := (rast(x1, y1) + rast(x2, y2) + rast(x3, y3)) / 2;
  S := sqrt(p * (p - rast(x1, y1)) * (p - rast(x2, y2)) * (p - rast(x2, y2)));
  Writeln('площадь=', S:4:2);
  readln;

End.