Определить, является ли n-угольник выпуклым

Program L;
var m,n,k,i,j : integer;
    x,y:array[1..100] of integer;
    z1,z2:real;
    b:boolean;
    f_in, f_out: text;
BEGIN
  readln(f_in,n);
  if n<3 then begin write(f_out,'Введены неверные данные. n должно быть > или = 3');
     end else for j:=1 to n do
         begin readf_in,(x[i]);
               read(f_in,y[i]);
    end;
  for i:=1 to n do
  begin
    j:=i+1; // идём к следующей точке из А к Б??
    k:=j+1; // из А к Б??
    if k=n+1 then k:=1;
    if i=n then j:=1;
    m:=i-1;
    if m=n-1 then k:=2;
    if i=1 then m:=n;
    z1:=(x[m]-x[i])*(y[j]-y[i])
    -(y[m]-y[i])*(x[j]-x[i]);
    z2:=(x[k]-x[i])*(y[j]-y[i])
    -(y[k]-y[i])*(x[j]-x[i]);
    if z1*z2<0 then b:=false;
  end;
  if b=true then
  write(f_out,'выпуклый')
    else write(f_out,'не выпуклый');
close (f_in);
close (f_out);
END.

Program L;
var m,n,k,i,j : integer;
    x,y:array[1..100] of integer;//массивы координат
    z1,z2:real;//значения векторных произведений
    b:boolean;
    f,g:text;
BEGIN
  assign(f,'f.in');
  reset(f);
  assign(g,'f.out');
  rewrite(g);
  read(f,n);
  if n<3 then
   begin
    write(g,'Введены неверные данные, n должно быть >2');
    close(f);
    close(g);
    exit
   end;
  for i:=1 to n do
  read(f,x[i],y[i]);//читаем координаты
  close (f);
  b:=true;
  i:=1;
  while(i<=n)and b do //смотрим точки с замыканием пока соблюдается выпуклость
   begin
    j:=i+1; // идём к следующей точке из А к Б??
    if j=n+1 then j:=1;//если вторая точка больше n, она равна 1
    k:=j+1; // из Б к С
    if k=n+1 then k:=1;//тоже с 3 точкой
    z1:=(x[k]-x[i])*(y[j]-y[i])-(y[k]-y[i])*(x[j]-x[i]); //считаем векторные произведения
    z2:=(x[k]-x[i])*(y[j]-y[i])-(y[k]-y[i])*(x[j]-x[i]);
    if z1*z2<0 then b:=false //если знак сменился (+*-=-) то не выпуклый, дальше не проверяем
    else inc(i) //иначе к следующей вершине
   end;
  if b then write(g,'выпуклый')
  else write(g,'не выпуклый');
  close (g);
END.