Найти три такие точки, чтобы треугольник, построенный на них, содержал внутри себя больше точек, чем снаружи

var
myfile2:File of integer;
a1,b1,a,i,j,k,x,y,x1,x2,y1,y2,c,d,e,p1,p2,p3,p4,p5,p6:integer;
l,m,n,q,r,s,t,p,q1,r1,t1,s1,p11,q2,q3,r2,r3,t2,t3,p22,p33,s2,s3:real;
log:boolean;
list1,list2,list3,list4,list5,list6,list7,list8,list9,list10:tstringlist;
begin
list1:=TStringList.Create;
list2:=TStringList.Create;
list3:=TStringList.Create;
list4:=TStringList.Create;
list5:=TStringList.Create;
list6:=TStringList.Create;
list7:=TStringList.Create;
list8:=TStringList.Create;
list9:=TStringList.Create;
list10:=TStringList.Create;
image1.Canvas.Brush.Color := clWhite;
image1.Canvas.FillRect(Canvas.ClipRect);
AssignFile(myFile2, 'coordinates(2).mis');
filemode:=fmOpenReadWrite;
Form2.ShowModal;
reset(myfile2);
while not Eof(myFile2) do
  begin
    Read(myFile2, a1, b1);
    list1.Add(inttostr(a1));
    list2.Add(inttostr(b1));
    image1.Canvas.Pixels[a1,b1]:=clgreen;
end;
closefile(myfile2);
a:=list1.Count;
reset(myfile2);
for i:=0 to a-1 do
begin
x:=strtoint(list1[i]);
y:=strtoint(list2[i]);
for j:=0 to a-1 do
begin
if j<>i then
begin
x1:=strtoint(list1[j]);
y1:=strtoint(list2[j]);
for k:=0 to a-1 do
begin
if (k<>j)and(k<>i) then
begin
x2:=strtoint(list1[k]);
y2:=strtoint(list2[k]);
s:=0.5*((x-x1)*(y1-y2)-(x1-x2)*(y-y2));
c:=0;
while not eof(myfile2) do
begin
read(myfile2, a1, b1);
s1:=0.5*((x-a1)*(y1-b1)-(x1-a1)*(y-b1));
s2:=0.5*((a1-x2)*(y1-y2)-(x1-x2)*(b1-y2));
s3:=0.5*((x-x2)*(b1-y2)-(a1-x2)*(y-y2));
list10.Add(floattostr(s)+'   '+floattostr(s1+s2+s3));
if (s1+s2+s3)=s then
begin
inc(c);
end;
end;
list3.Add(inttostr(c));
list4.add(inttostr(x));
list5.Add(inttostr(y));
list6.add(inttostr(x1));
list7.add(inttostr(y1));
list8.add(inttostr(x2));
list9.Add(inttostr(y2));
end;
end;
end;
end;
end;
d:=0;
for i:=0 to list3.Count-1 do
begin
if d<strtoint(list3[i]) then
begin
d:=strtoint(list3[i]);
e:=i;
end;
end;
p1:=strtoint(list4[e]);
p2:=strtoint(list5[e]);
p3:=strtoint(list6[e]);
p4:=strtoint(list7[e]);
p5:=strtoint(list8[e]);
p6:=strtoint(list9[e]);
image1.Canvas.Pen.Color:=clblack;
image1.Canvas.pen.Width:=3;
image1.Canvas.MoveTo(p1,p2);
image1.canvas.lineto(p3,p4);
image1.canvas.lineto(p5,p6);
image1.canvas.LineTo(p1,p2);
list1.savetofile('text1.txt');
list2.savetofile('text2.txt');
list3.savetofile('text3.txt');
list4.savetofile('text4.txt');
list5.savetofile('text5.txt');
list6.savetofile('text6.txt');
list7.savetofile('text7.txt');
list8.savetofile('text8.txt');
list9.savetofile('text9.txt');
list10.savetofile('text10.txt');
end;