Обход Джарвиса

[Чайник.ру]

Есть кусочек программы по обходу Джарвиса.
Помогите определить, что происходит в каждой из строчек.(нужно добавить подробные комментарии)

Begin
Write('Введите количество точек: '); readln(n);
for i:=1 to n do
   begin
     write(i,': '); readln(A[i].x, A[i].y);
   end;
First:=1;
  For i:=2 To N Do
    If (A[i].x<A[First].x) Or (A[i].x=A[First].x) And (A[i].y<A[First].y)
       Then First:=i;
  M:=1; Cur:=First;
  Repeat
    Ind[M]:=Cur; Inc(M); Min:=Cur;
    For i:=N DownTo 1 Do
    Begin
      If (A[i].x=A[Cur].x) And (A[i].y=A[Cur].y) Then Continue;
      z:=P3Square(A[Cur],A[i],A[Min]);
      If (Min=Cur) Or (z>0) Or (z=0) And PBtwS(A[Min],A[Cur],A[i]) Then Min:=i;
    End;
    Cur:=Min;
  Until Cur=First;
M:=M-1;
writeln();
writeln('Порядок соединения точек:');
for i:=1 to M do writeln('№ ',Ind[i],'  X[',Ind[i],']= ',A[Ind[i]].x,'  Y[',Ind[i],']= ',A[Ind[i]].y);
End.