Delphi.Form Application.Программирование алгоритмов обработки двумерных массивов

[Apollonchik]

Дан массив М координат точек на плоскости. Найти наибольшее расстоя-ние между этими точками

[ZX Spectrum-128]

http://www.programmersforum.ru/showthread.php?t=174202

[Apollonchik]

procedure TForm1.Button1Click(Sender: TObject);
var x,b,dx,F1,F2:real;
    a_arr:array[1..10,1..10] of integer;
    i,j,a:integer;
    s1,s2,s3:string[40];
    m,n: real;
    cod:integer;
begin
      val(Edit1.Text,a,cod);

      stringGrid1.RowCount:=a+15;
      stringGrid1.ColCount:=a+15;

      for i:=1 to a do begin
        for j:=1 to a do begin
          a_arr[i,j]:=random(99);
        end;
      end;

      for i:=1 to a do begin
        for j:=1 to a do begin
          stringGrid1.Cells[0,i]:=IntToStr(i);
          stringGrid1.Cells[j,0]:=IntToStr(j);
          stringGrid1.Cells[j,i]:=IntToStr(a_arr[i,j]);
        end;
      end;
       n:=0;
      for i:=1 to a-1 do
        for j:=i+1 to a do begin
          m:= sqrt((a_arr[i,1] - a_arr[j,1]) * (a_arr[i,1] - a_arr[j,1]) + (a_arr[i,2] - a_arr[j,2]) * (a_arr[i,2] - a_arr[j,2]));
          if m>n then
          begin
            n:=m;
          end;
        Edit2.Text:= IntToStr(n);
      end;

в чём ошибка?Я торможу...

[type_Oleg]

Сообщение от Apollonchik

Дан массив М координат точек на плоскости.

Координаты - X,Y.
То есть , исходный массив
- или разм. [1..2,1..M] of Integer
- или одномерный [1..M]of Koord, где

type Koord=record 
 X,Y:Integer; end;

Из него получаете двумерный массив расстояний от точки i до точки j - a[i,j] типа - [1..M,1..M] of real;
И ищете максимум среди его элементов. Учитывая, что a[i,i]=0 и a[i,j]=a[j,i]

А что такое - a_arr? Координаты, или расстояния ?

[Apollonchik]

a_arr - координаты

[Apollonchik]

С выводом проблемы

[type_Oleg]

Сообщение от Apollonchik

a_arr - координаты

Хорошо.
Объясните, что такое например a_arr[2,5]