Даны 4 точки. Определить какие треугольники, образованные этими точками, обладают максимальными и минимальными S и P

Var maxS , minS , maxP , minP , S , P : real;
    x , y : array[1..4] of real;
    maxSI , minSI , maxPI , minPI , i : integer;
 
Function getDist(x1 , y1 , x2 , y2 : real) : real;
Begin
    getDist := sqrt((x1 - x2) * (x1 - x2) + (y1 - y2) * (y1 - y2));
End;
 
Procedure getSandP(p1 , p2 , p3 : integer; var S , P : real);
Var a , b , c , u : real;
Begin
    a := getDist(x[p1] , y[p1] , x[p2] , y[p2]);
    b := getDist(x[p2] , y[p2] , x[p3] , y[p3]);
    c := getDist(x[p3] , y[p3] , x[p1] , y[p1]);
    P := a + b + c;
    u := P / 2;
    S := sqrt(u * (u - a) * (u - b) * (u - c));
End;
 
Procedure checkMax(i : integer);
Begin
    if S > maxS then begin
        maxS := S;
        maxSI := i;
    end;
    if S < minS then begin
        minS := S;
        minSI := i;
    end;
    if P > maxP then begin
        maxP := P;
        maxPI := i;
    end;
    if P < minP then begin
        minP := P;
        minPI := i;
    end;
End;
 
Procedure Print(mes : string; v : real; vv : integer);
Var s : string;
Begin
    Write(mes , v : 0 : 3, ' ');
    Write('Результат достигнут при построении треугольника по точкам ');
    case vv of
        1 : s := '1 2 3';
        2 : s := '1 2 4';
        3 : s := '2 3 4';
    end;
    WriteLn(s);
End;
 
Begin
    maxS := -1;
    minS := maxint;
    maxP :=-1;
    minP := maxint;
    for i := 1 to 4 do 
        read(x[i] , y[i]);
    getSandP(1 , 2 , 3 , S , P);
    checkMax(1);
    getSandP(1 , 2 , 4 , S , P);
    checkMax(2);
    getSAndP(2 , 3 , 4 , S , P);
    checkMax(3);
    Print('Максимальная площадь: ' , maxS , maxSI);
    Print('Минимальная площадь: ' , minS , minSI);
    Print('Максимальный периметр: ' , maxP, maxPI);
    Print('Минимальный периметр: ' , minP ,minPI);
    ReadLn;
End.