Процедура: проверка выпуклости многоугольника

const
  Size = 100;
 
type
  tPoint = record
    X, Y : Real;
  end;
 
var
  N : Integer;
  A : array [1..Size] of tPoint;
  
procedure InitArray;
begin
  N := 5;
  A[1].X := 1; A[1].Y := 4;
  A[2].X := 5; A[2].Y := 7;
  A[3].X := 7; A[3].Y := 3;
  A[4].X := 4; A[4].Y := 1;
  A[5].X := 0; A[5].Y := 0;
end;
 
function Sign(N : Real) : Integer;
begin
  if N = 0 then
    Sign := 0
  else if N < 0 then
    Sign := -1
  else
    Sign := +1;
end;
 
function WhichSide(A, B, C : tPoint) : Integer;
begin
  WhichSide := Sign((A.X - B.X) * (B.Y - C.Y) - (A.Y - B.Y) * (B.X - C.X));
end;
 
function isConvex : Boolean;
var
  i : Integer;
  V0, V : Integer;
begin
  V0 := WhichSide(A[1], A[2], A[3]);
  
  isConvex := False;
  for i := 2 to N-2 do
    begin
      V := WhichSide(A[i], A[i+1], A[i+2]);
      if V0 <> V then  Exit;
    end;
  V := WhichSide(A[N-1], A[N], A[1]);
  if V0 <> V then  Exit;
  V := WhichSide(A[N], A[1], A[2]);
  if V0 <> V then  Exit;
  
  isConvex := True;
end;
 
begin
  InitArray;
  case isConvex of
    true : WriteLn('1 - выпуклый');
    false : WriteLn('1 - впуклый');
  end;
  
  A[3].X := 4;
  case isConvex of
    true : WriteLn('1 - выпуклый');
    false : WriteLn('1 - впуклый');
  end;
end.