Из множества выбрать три различные точки по условию

uses crt;
const nmax=15;
      e=0.001;{точность сравнения}
type point=record
           x,y:real;
           end;
     mnz=array[1..nmax] of point;{тип множеств}
function Sq(t1,t2,t3:point):real;{нахождение площади по координатам}
begin
sq:=abs((t1.x-t3.x)*(t2.y-t3.y)-(t2.x-t3.x)*(t1.y-t3.y));
end;
function Prin(t1,t2,t3,t:point):boolean;{принадлежность точки треугольнику}
var s,s1,s2,s3:real;
begin
s:=Sq(t1,t2,t3);
s1:=Sq(t1,t2,t);
s2:=Sq(t1,t3,t);
s3:=Sq(t3,t2,t);
Prin:=abs(s-s1-s2-s3)<=e;
end;
procedure Vvod(var a:mnz;var n:byte;c:char);{ввод множества}
var i:byte;
begin
repeat
write('Количество точек в множестве ',c,' от 3 до ',nmax,' n=');
readln(n);
until n in [3..nmax];
writeln('Введите координаты точек');
for i:=1 to n do
 begin
  writeln('Точка ',i);
  write('x=');readln(a[i].x);
  write('y=');readln(a[i].y);
 end;
clrscr;
end;
procedure Vyvod(a:mnz;n:byte;c:char);{вывод}
var i:byte;
begin
writeln('Координаты множества ',c,':');
write('N');
for i:=1 to n do
write(i:5);
writeln;
write('X');
for i:=1 to n do
write(a[i].x:5:1);
writeln;
write('Y');
for i:=1 to n do
write(a[i].y:5:1);
writeln;
writeln;
end;
var a,b:mnz;
    na,nb,i,j,k,p,imn,jmn,kmn,kt:byte;
    mn:real;
begin
clrscr;
Vvod(a,na,'A');
Vvod(b,nb,'B');
Vyvod(a,na,'A');
Vyvod(b,nb,'B');
imn:=0;
mn:=1.7e38;
for i:=1 to na-2 do
for j:=i+1 to na-1 do
for k:=j+1 to na do
 begin
  kt:=0;
  for p:=1 to nb do
  if Prin(a[i],a[j],a[k],b[p]) then kt:=kt+1;
  if (kt=nb)and(Sq(a[i],a[j],a[k])<mn) then
   begin
    mn:=Sq(a[i],a[j],a[k]);
    imn:=i;
    jmn:=j;
    kmn:=k;
   end;
 end;
if imn=0 then write('Треугольников по условию нет')
else
 begin
  writeln('Минимальная площадь треугольника по условию');
  write('образован точками ',imn,' ',jmn,' ',kmn,' = ',mn:0:2);
 end;
readln
end.