"наиболее удалённые точки"
Координаты n точек на плоскости заданы в виде двумерного массива K[1..n,1..2]. Найти номера двух точек, расстояние между которыми наибольшее. Вычисление расстояния между двумя точками организовать в подпрограмме.

как это можно реализовать?

Это приказ?

нет конечно ) я просто поторопился ... забыв задать вопрос ..

Ну, раз в подпрограмме, то ...

Function Dist(i, j: Integer): Real;
Begin
  Dist := Sqrt( Sqr(K[i, 1]-K[j, 1]) + Sqr(K[i, 2]-K[j, 2]) );
End;

и потом - перебор всех возможных пар точек (i, j) с запоминанием макс. расстояния и соответствующих ему i и j ...

Спасибо большое !!!
попробую так.