Находится ли точка с заданными координатами на одной из сторон многоугольника.

uses crt;
var
  N, ix, iy, x, y: integer;
  ax:array [1..100] of integer;
  ay:array [1..100] of integer;
  
begin
  write('Введите количество сторонон многоугольника ');
  readln(N);
  write('Введите координаты (x) вершин многоугольника: ');
  for ix:= 1 to N do
    read(ax[ix]);
  write('Введите координаты (y) вершин многоугольника: ');
  for iy:= 1 to N do  
    read(ay[iy]);
  write('Введите координаты точки ');
  readln(x,y);

uses crt;
const t=0.001;
function IsLine(x1,y1,x2,y2,x,y:real):boolean;
var p:real;
begin
if x1=x2 then {если сторона вертикально}
 begin
  if (x=x1) and(((y<=y1)and(y>=y2))or((y>=y1)and(y<=y2))) then IsLine:=true
  else IsLine:=false;
 end
else
 begin
  p:=(x-x2)/(x1-x2);
  if (abs(p*y1+(1-p)*y2-y)<t)and((p>=0)and(p<=1))then IsLine:=true
  else IsLine:=false
 end;
end;
 
var N, i, x, y, i1: integer;
    ax:array [1..100] of integer;
    ay:array [1..100] of integer;
    f:boolean;
begin
write('Введите количество сторонон многоугольника ');
readln(N);
write('Введите координаты вершин многоугольника в порядке обхода: ');
for i:=1 to N do
 begin
  writeln('Вершина ',i);
  write('x='); readln(ax[i]);
  write('y='); readln(ay[i]);
 end;
ax[n+1]:=ax[1]; {замкнем}
ay[n+1]:=ay[1];
writeln('Введите координаты точки ');
readln(x,y);
f:=false;
i:=1;
while(i<=n)and not f do
if IsLine(ax[i],ay[i],ax[i+1],ay[i+1],x,y) then
 begin
  f:=true;
  i1:=i
 end
else i:=i+1;
if f then
 begin
  if i1=n then write('Точка лежит на стороне 1-',n)
  else write('Точка лежит на стороне ',i1,'-',i1+1)
 end
else write('Точка не лежит на стороне');
readln
end.

begin
  p:=(x-x2)/(x1-x2);
  if (abs(p*y1+(1-p)*y2-y)<t)and((p>=0)and(p<=1))then IsLine:=true
  else IsLine:=false
 end;

function IsLine(x1,y1,x2,y2,x,y:real):boolean;
var p:real;
begin
if x1=x2 then {если сторона вертикально}
 begin
  if (x=x1) and(((y<=y1)and(y>=y2))or((y>=y1)and(y<=y2))) then IsLine:=true
  else IsLine:=false;
 end
else
 begin
  p:=(x-x2)/(x1-x2);
  if (abs(p*y1+(1-p)*y2-y)<t)and((p>=0)and(p<=1))then IsLine:=true
  else IsLine:=false
 end;
end;

const t=0.001;