for Counter := 2 to AngleCount do
   repeat
      repeat
         try
            Write(Counter + 1,'-ая вершина: ');
            ReadLn(MyArrayX[Counter], MyArrayY[Counter]);
            IsCorrect := true;
            if ((MyArrayX[Counter] > MaxBorder) or (MyArrayY[Counter] > MaxBorder) or (MyArrayX[Counter] < MinBorder) or (MyArrayY[Counter] < MinBorder)) then
               begin
                  IsCorrect := false;
                  WriteLn('Ошибка ввода, значения должны принадлежать [',MinBorder,'; ',MaxBorder,']!');
               end;
         except
            WriteLn('Ошибка ввода, значения должны принадлежать[',MinBorder,'; ',MaxBorder,']!');
         end;
      until IsCorrect;
      if ((MyArrayY[Counter - 2] - MyArrayY[Counter - 1]) * MyArrayX[Counter] + (MyArrayX[Counter - 1] - MyArrayX[Counter - 2]) * MyArrayY[Counter] + (MyArrayX[Counter - 2] * MyArrayY[Counter - 1] - MyArrayX[Counter - 1] * MyArrayY[Counter - 2]) = 0) then
            begin
               WriteLn('Ошибка ввода: три последовательные вершины не должны лежать на одной прямой!');
               IsCorrect := false;
            end;
   until IsCorrect;