Как правильно записать цикл? (Delphi)

[zaira001002]

Я использовала массив с типом Point:

CoordPoints: array of TPoint;

И у меня вот отрезок программы, где нужна подсказка именно на то, что вставить вместо многоточия?

        CoordPoints[I].X:= StrToInt(SDeleted);
        CoordPoints[I].Y:= StrToInt(S);
        end;
        // Найдем первое звено ломаной линии,
        // пересекающая наибольшее количество сторон треугольников
       for I:=1 to ... do
        for J := 1 to ... do
        begin
        // Вычисляем длину звена
          D:=Sqrt( Sqr(CoordPoints[I].X-CoordPoint[J].X)+ Sqr(CoordPoints[I].Y-CoordPoint[J].Y));
          // найдем количество пересекаемых сторон треугольников
          if D>Max then
          begin
            Max:=D;
            X:=I;
            Y:=J;
          end;
        end;

[BDA]

for I := low(CoordPoints) to high(CoordPoints) - 1 do
  for J := I + 1 to high(CoordPoints) do

[zaira001002]

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

D:=Sqrt( Sqr(CoordPoints[I].X-CoordPoint[J].X)+ Sqr(CoordPoints[I].Y-CoordPoint[J].Y));

выдает ошибку следующую:
[DCC Error] Lab5.pas(192): E2003 Undeclared identifier: 'CoordPoint'

[zaira001002]

я извиняюсь))) я все исправила

[zaira001002]

Спасибо большое за помощь)