Множества точек на плоскости

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function Prin(a,b,c,t:TPoint):boolean;
var p1,p2,p3:real;
begin
p1:=(a.x-t.x)*(b.y-a.y)-(b.x-a.x)*(a.y-t.Y);
p2:=(b.x-t.x)*(c.y-b.y)-(c.x-b.x)*(b.y-t.Y);
p3:=(c.x-t.x)*(a.y-c.y)-(a.x-c.x)*(c.y-t.y);
result:=((p1>0)and(p2>0)and(p3>0))
or((p1<0)and(p2<0)and(p3<0));
end;
procedure TForm1.Button1Click(Sender: TObject);
const n=15;
var a,b:array[1..n] of TPoint;
    mx,i,j,k,p,k1,k2,i1,j1,k3,k4:integer;
    f:boolean;
begin
randomize;
StringGrid1.Cells[1,0]:='X';
StringGrid1.Cells[2,0]:='Y';
StringGrid2.Cells[1,0]:='X';
StringGrid2.Cells[2,0]:='Y';
for i:=1 to n do
 begin
  StringGrid1.Cells[0,i]:=IntToStr(i);
  StringGrid2.Cells[0,i]:=IntToStr(i);
  a[i].X:=random(20);
  a[i].Y:=random(20);
  StringGrid1.Cells[1,i]:=IntToStr(a[i].X);
  StringGrid1.Cells[2,i]:=IntToStr(a[i].Y);
  b[i].X:=random(20);
  b[i].Y:=random(20);
  StringGrid2.Cells[1,i]:=IntToStr(b[i].X);
  StringGrid2.Cells[2,i]:=IntToStr(b[i].Y);
 end;
mx:=0;
f:=false;
for i:=1 to n-2 do
for j:=i+1 to n-1 do
for k:=j+1 to n do
 begin
  k1:=0;
  k2:=0;
  for p:=1 to n do
   begin
    if Prin(a[i],a[j],a[k],a[p]) then inc(k1);
    if Prin(a[i],a[j],a[k],b[p]) then inc(k2);
   end;
  if(k1>mx)and(k1=k2) then
   begin
    mx:=k1;
    i1:=i;
    j1:=j;
    k3:=k;
    k4:=k1;
   end;
 end;
if mx=0 then Memo1.Text:='Нет треугольников, содержащих точки'
else Memo1.Text:='Максимальное равное число точек имеет треугольник'+#13#10+
                  'с вершинами в точках '+IntToStr(i1)+' '+IntToStr(j1)+' '+IntToStr(k3)+' '+'кол. точ.='+IntToStr(k4);
 
 
 
end;
 
end.