Массив(есть наработка)

[BornOfOsiris]

Даны координаты n точек на плоскости: (Xi, Yi), ..., (Хn, Yn) (n=30). Найти номера пары точек, расстояние между которыми наибольшее (считать, что такая пара единственная).
Выдаёт ошибку - Expected ':' but '=' found
Код:

type
  TForm1 = class(TForm)
  TPoint=record
         x,y:real;
     end;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
   Points:array[1..30] of TPoint;
max:=0;
Begin
for i:=1 to n-1 do
    for j:=i+1 to n do begin
        s:=sqrt(sqr(points[i].x-points[j].x)+sqr(points[i].y-points[j].y));
        if s>max then begin
            max:=s;
            maxi:=i;
            maxj:=j;
        end;
implementation
{$R *.dfm}
end.

Помогите доделать и разобраться,пожалуйста.

[Mandrivnyk]

type TPoint = record

Разве не так надо?

[Valio]

А вам не кажется что

implementation
{$R *.dfm}
end.

выглядит довольно подозрительно и стоит в самом конце

Автор это не паскаль.

[Valio]

type

  TPoint=record
         x,y:real;
     end;

  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
   Points:array[1..30] of TPoint;
   max : Integer;

implementation
{$R *.dfm}

// тут надо чтото написать.. типа БутонКлик
max:=0;
Begin
for i:=1 to n-1 do
    for j:=i+1 to n do begin
        s:=sqrt(sqr(points[i].x-points[j].x)+sqr(points[i].y-points[j].y));
        if s>max then begin
            max:=s;
            maxi:=i;
            maxj:=j;
        end;
End;
// Бутон клик закончен

end.

Кароче както так должно быть, незнаю что автор хотел написать.