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

[Nevis]

Даны координаты n точек на плоскости:
(X1, Y1),…, (Xn , Yn) (n≤30). Найти номера пары точек, расстояние между которыми наибольшее (считать, что такая пара единственная). прошу вашей помощи!!!

[ОДИНОЧЕСТВО В СЕТИ]

program points; 
 uses crt;
  type s=record
   x: integer;  
   y:integer; 
  end;
var
   a:array[1..30] of s;
    i,j,n:integer;
	im,jm:integer;
	b,max:real;
	begin
	readln(n);
	for i:=1 to n do begin
	  readln(a[i].x);
	  readln(a[i].y);
	end;
	max:=0;
	for i:=1 to n do
	begin
	for j:=1 to n do begin
	b:=sqrt(sqr(a[i].x-a[j].x)+sqr(a[i].y-a[j].y));
	if b> max then 
	  begin
        max:=b;
        im:=i;
        jm:=j;
      end;
    end;   
	writeln('max rasstoyanie m/u tochkami ',im,' i ',jm );
	readln;
	end.

[Nevis]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

program points; 
 uses crt;
  type s=record
   x: integer; [15];   
   y:integer; 
  end;
var
   a:array[1..30] of s;
    i,j,n:integer;
	im,jm:integer;
	a,max:real;
	begin
	readln(n);
	for i:=1 to n do begin
	  readln(a[i].x);
	  readln(a[i].y);
	end;
	max:=0;
	for i:=1 to n do
	begin
	for j:=1 to n do begin
	a:=sqrt(sqr(a[i].x-a[j].x)+sqr(a[i].x-a[j].x));
	if a> max then 
	  begin
        max:=a;
        im:=i;
        jm:=j;
      end;
    end;   
	writeln('max rasstoyanie m/u tochkami ',im,' i ',jm );
	readln;
	end.

тут много ошибок, не могла бы одинокая девушка проверить их на досуге?

[ОДИНОЧЕСТВО В СЕТИ]

не могла бы ибо написано в блокноте! компилятора нету! сами проверяйте! о как!!!

[Nevis]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

не могла бы ибо написано в блокноте! компилятора нету! сами проверяйте! о как!!!

там переменная и массив одной переменной записанны!

[Monte-Kristo]

ну измени что-нибудь на что-нибудь другое... в чем проблема...