Самое большое расстояние между точками.

uses crt;
type
point=record
      x,y:real;
      end;
mas=array[1..100] of point;
function Rasst(a,b:point):real;
begin
Rasst:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
procedure Max(m:mas;n:byte);
var i,j,imx,jmx:byte;
    mx:real;
begin
mx:=0;imx:=1;jmx:=1;
for i:=1 to n-1 do
for j:=i+1 to n do
if Rasst(m[i],m[j])>mx then
 begin
  mx:=Rasst(m[i],m[j]);
  imx:=i;
  jmx:=j;
 end;
write('Максимальное расстояние между точками ',imx,' и ',jmx,' =',mx:0:1);
end;
var a:mas;
    n,i,j:integer;
begin
clrscr;
randomize;
write('Количество точек (нормально до 13) = ');
readln(n);
writeln('Введите координаты точек:');
for i:=1 to n do
 begin
  writeln('Точка ',i);
  write('x=');readln(a[i].x);
  write('y=');readln(a[i].y);
 end;
clrscr;
write('Нoмер точки ');
for i:=1 to n do write(i:5);
writeln;
write('координата Х');
for i:=1 to n do write(a[i].x:5:1);
writeln;
write('координата Y');
for i:=1 to n do write(a[i].y:5:1);
writeln;
writeln;
Max(a,n);
readln
end.