Вычислить периметр и площадь треугольника по координатам вершин

Var
    x1, x2, x3, y1, y2, y3, S, P, s1, s2, s3: Real;
 
Begin
    WriteLn ('Введите Х первой точки');
    ReadLn (x1);
    WriteLn ('Введите Y первой точки');
    ReadLn (y1);
    WriteLn ('Введите Х второй точки');
    ReadLn (x2);
    WriteLn ('Введите Y второй точки');
    ReadLn (y2);
    WriteLn ('Введите Х третьей точки');
    ReadLn (x3);
    WriteLn ('Введите Y третьей точки');
    ReadLn (y3);
    S := 0.5 * ((x1 - x3) * (y2 - y3) - (x2 - x3) * (y1 - y3));
    WriteLn ('Площадь треугольника равна ', S, ' кв.ед');
    s1 := sqrt(sqr(x1 - x2) + sqr(y1 - y2));    {длина 1 стороны}
    s2 := sqrt(sqr(x2 - x3) + sqr(y2 - y3));    {длина 2 стороны}
    s3 := sqrt(sqr(x1 - x3) + sqr(y1 - y3));    {длина 3 стороны}
    P := s1 + s2 + s3;
    WriteLn ('Периметр треугольника равен ', P, ' ед');
    ReadLn;
End.