Построение выпуклой оболочки множества точек

type
  TPoint = record
    x,y: Integer;
  end;
 
const
  MaxN = 400;
 
var
  N: Integer;
  i: Integer;
  P: array [1..MaxN] of TPoint;     { Точки множества }
  Used: array [1..MaxN] of Boolean;
 
  First,Point,NewPoint: Integer;
 
  procedure WritePoint(i: Integer);
  begin
    Writeln('[',i:3,'] (',P[i].x, ';', P[i].y, ')');
  end;
 
  function Bigger(P,P1,P2: TPoint): Boolean;
  begin
    Bigger := (P1.x - P.x) * (P2.y - P.y) - (P1.y - P.y) * (P2.x - P.x) > 0;
  end;
 
begin
  assign(input,'input.txt'); reset(input);
  Readln(N);
 
  First:=1;
  for i:=1 to N do begin
    Readln(P[i].x, P[i].y);
    if (P[i].y < P[First].y) then First:=i else
    if (P[i].y = P[First].y) and (P[i].x < P[First].x) then First:=i;
  end;
  close(input);
 
  FillChar(Used,SizeOf(Used),False);
 
  Writeln('Выпуклая оболочка идет через вершины: ');
 
  Point:=First;
 
  repeat
    WritePoint(Point); Used[Point]:=True;
    NewPoint:=0;
 
    { Поиск следующей вершины }
    for i:=1 to N do
      if i <> Point then begin
        if (NewPoint = 0) or (Bigger(P[Point], P[i], P[NewPoint]))
          then NewPoint:=i;
      end;
 
    Point:=NewPoint;
  until Point = First;
 
end.