расстояние между точками в евклидовой плоскости

[CrystaLize]

Program Crystal;
uses crt;
type tochka = record
         x : real;
         y : real;
type primer = array [1..2] of tochka;
var a : primer;
      d : real;
begin
clrscr;
writeln('Введите координаты для 2  точек');
readln(a[1].x, a[1].y, a[2].x, a[2].y);
d:=sqrt(sqr(a[1].x+a[2].x)+sqr(a[1].y+a[2].y));
writeln('Расстояние между точками:', d);
readkey;
end.

Данная программа вычисляет расстояние между 2-мя точками.

Но мне нужно сделать это для 5 точек, вычислить максимальное расстояние. Естественно я могу дать координаты для каждой точки, потом по очереди вычислять сначала расстояние между 1 и 2, потом между 1 и 3, 1 и 4, 2 и 3, и.т.д. и потом сравнить какое из них больше.
Но мне сказали упрощать этот процесс, вот как это сделать так и не додумался. Пожалуйста помогите решить эту не сложную задачу.

За ранее спасибо.