Найти треугольник, стороны которого содержат максимальное число точек заданного множества

program kurs;
uses crt;
function Dlina(x1,y1,x2,y2:real):real;
begin
Dlina:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
type Mas = array [1..20] of real;
var i, j, k, n, s, kol_t, max_kol_t : integer;
AB, BC, CA,xAB, xBC, xCA: real;
xA_max,yA_max,xB_max,yB_max,xC_max,yC_max: real;
x, y : Mas;
begin
clrscr;
kol_t:=0;
max_kol_t:=0;
xA_max:=0;
yA_max:=0;
xB_max:=0;
yB_max:=0;
xC_max:=0;
yC_max:=0;
writeln ('Количество точек');
readln (n);
if n>2
then
begin
for i:=1 to n do
begin
writeln ('Координата Х точки '+IntToStr(i));
readln (x[i]);
writeln ('Координата Y точки '+IntToStr(i));
readln (y[i]);
end;
for i:=1 to n-2 do
for j:=i+1 to n-1 do
for k:=j+1 to n do
begin
AB:=Dlina(x[i],y[i], x[j],y[j]);
BC:=Dlina(x[j],y[j], x[k],y[k]);
CA:=Dlina(x[k],y[k], x[i],y[i]);
if ((AB+BC)>CA) and ((AB+CA)>BC) and ((BC+CA)>AB)
then
begin            
kol_t:=0;
 
for s:=1 to n do    
begin
if ((x[s]=x[i]) and  (y[s]=y[i])) or ((x[s]=x[j]) and  (y[s]=y[j])) or ((x[s]=x[k]) and  (y[s]=y[k]))
then
else
begin
xAB:=(x[s]-x[i])*(y[j]-y[i])-(y[s]-y[i])*(x[j]-x[i]);
xBC:=(x[s]-x[j])*(y[k]-y[j])-(y[s]-y[j])*(x[k]-x[j]);
xCA:=(x[s]-x[k])*(y[k]-y[i])-(y[s]-y[i])*(x[k]-x[i]);
if (xAB=0) or (xBC=0) or (xCA=0)      
kol_t:=kol_t+1;
end;
if kol_t>max_kol_t
then
begin
max_kol_t:=kol_t;
xA_max:=x[i];
yA_max:=y[i];
xB_max:=x[j];
yB_max:=y[j];
xC_max:=x[k];
yC_max:=y[k];
end;
end;
end;
end;
if max_kol_t>0
then
begin
write('Треугольник (');
write (xA_max);
write (', ');
write (yA_max);
write('), B(');
write (xB_max);
write (', ');
write (yB_max);
write('), C(');
write (xc_max);
write (', ');
write (yc_max);
writeln (') ');
write('Кол-во точек на сторонах треугольника ');
writeln(max_kol_t);
end
else
writeln('Нет точек на сторонах треугольника')
end;
end.