нахождение расстояние в паскале

[miksed]

Четыре точки заданы своими координатами X(x1, x2), Y(y1, y2), Z(z1, z2), P(p1, p2). Выяснить, какие из них находятся на максимальном расстоянии друг от друга и найти значение этого расстояния. Вычисление расстояния между двумя точками оформить в виде процедуры.
зарание спасибо))

[Smitt&Wesson]

Примерно так:

s=0;
for(int i=0; i<max-1; i++)
  for(int j=i; j<max; j++)
    if(x[i] + x[j] > s) s = x[i] + x[j];

[Arigato]

Функция для нахождения расстояния между двумя точками:

function Distance(x1,y1,x2,y2: real): real;
begin
  Distance:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;

Дальше сами.