Паскаль найти МИНИМАЛЬНОЕ расстояние между 3 точками, как дальше?

[Вида))]

Program Distance;
Var X1, Y1, X2, Y2, X3, Y3, D: Real;
Begin
WriteLn('Введите координаты А');
ReadLn(X1, Y1);
WriteLn('Введите координаты В');
ReadLn(X2, Y2);
WriteLn('Введите координаты С');
ReadLn(X3, Y3);
D := Sqrt(Sqr(X2 - X1) + Sqr(Y2 - Y1));
WriteLn('Расстояние между точками = ');
ReadLn;
End.

[kventin_zhuk]

В следующий раз оформляйте код кнопочкой решёточка)

Program Distance;
Var
  X1, Y1, X2, Y2, X3, Y3, min: Real;
  s: array [1..3] of real;
  i: integer;
Begin
  WriteLn('Введите координаты А');
  ReadLn(X1, Y1);
  WriteLn('Введите координаты В');
  ReadLn(X2, Y2);
  WriteLn('Введите координаты С');
  ReadLn(X3, Y3);
  s[1] := Sqrt(Sqr(X2 - X1) + Sqr(Y2 - Y1));
  s[2] := sqrt(sqr(x3 - x1) + sqr(y3 - y1));
  s[3] := sqrt(sqr(x3 - x2) + sqr(y3 - y2));
  min := s[1];
  for i := 1 to 3 do
    if s[i] < min then
        min := s[i];
  
  WriteLn('Min :', min);
  ReadLn;
End.