[angvelem]

Всё же имеется ошибка:

Код:

      Mas[Length(Mas)]:=Point(tmp,tmp2);

исправь:

Код:

      Mas[Length(Mas) - 1] := Point(tmp, tmp2);

а это зачем?

Код:

  FHandle := FileOpen('Points.mas', fmOpenRead);