Помогите пожалуйста с такой задачкой:

TYPE ТОЧКА=ARRAY[(X,Y)] OF REAL;
VAR M:ARRAY[1..40] OF ТОЧКА; D:REAL;
Рассматривая элементы массива M как координаты точек на плоскости, найти D - наибольшее расстояние между этими точками.

Найти номера двух точек,расстояние между которыми наибольшее