Найти три точки-вершины треугольника

uses crt,graph;
const nmax=100;
type point=record{тип точка с вещественными координатами}
           x,y:real;
           end;
function Plosh(a,b,c:point):real;{определение площади по координатам}
begin
Plosh:=abs(a.x*(b.y-c.y)+b.x*(c.y-a.y)+c.x*(a.y-b.y))/2;
end;
var t:array[1..nmax] of point;{массив точек}
    mx,x1,y1,x,y:real;
    n,i,j,k,imx,jmx,kmx:byte;
    gd,gm,x0,y0:integer;
    s:string;
begin
clrscr;
randomize;
repeat
write('Kolichestvo tochek ot 3 do ',nmax,' n=');
readln(n);
until n in [3..nmax];
for i:=1 to n do
 begin
  t[i].x:=60*random-30;
  t[i].y:=40*random-20;
 end;
mx:=Plosh(t[1],t[2],t[3]);
imx:=1;jmx:=2;kmx:=3;
for i:=1 to n-2 do
for j:=i+1 to n-1 do
for k:=j+1 to n do
if Plosh(t[i],t[j],t[k])>mx then
 begin
  mx:=Plosh(t[i],t[j],t[k]);{макс. площадь и номера точек}
  imx:=i;
  jmx:=j;
  kmx:=k;
 end;
writeln('Max. plosh=',mx:0:2);
writeln('Nomera tochek: ',imx,' ',jmx,' ',kmx);
write('Press Enter');
readln;
gd:=detect;
initgraph(gd,gm,'');
x0:=getmaxX div 2;y0:=getmaxY div 2;
SetBkColor(7); {цвет фона}
SetColor(1);{цвет линий осей}
line(0,y0,640,y0); {ось Х}
line(x0,480,x0,0); {ось У}
setlinestyle(1,0,0);  {пунктирная линия}
Setcolor(9);  {цвет сетки}
for i:=1 to 6 do   {максимальное количество засечек в одну сторону}
   begin
    line(0,y0-i*50,640,y0-i*50);     {засечки на оси У}
    line(0,y0+i*50,640,y0+i*50);
    line(x0+i*50,0,x0+i*50,480); {засечки на оси Х}
    line(x0-i*50,0,x0-i*50,480);
    {подпись оси У вверх}
    str(10*i,s);
    outtextXY(x0+5,y0-i*50,s);{соответственно засечкам}
    {подпись оси У вниз}
    str(-10*i,s);
    outtextXY(x0+5,y0+i*50,s);{соответственно засечкам}
    {подпись оси Х вправо}
    str(10*i,s);
    outtextXY(x0+i*50,y0+10,s);
    {ось Х влево}
    str(-10*i,s);
    outtextXY(x0-i*50,y0+10,s);
   end;
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0+10,5, 'Y');
for i:=1 to n do
 begin
  if i in[imx,jmx,kmx] then{вершины макс. треугольника}
   begin
    setcolor(12);
    setlinestyle(0,0,3);
   end
  else{остальные точки}
   begin
    setcolor(14);
    setlinestyle(0,0,1);
   end;
  circle(x0+round(10*t[i].x),round(y0+10*t[i].y),1);
  str(i,s);
  outtextXY(round(x0+10*t[i].x)+5,round(y0+10*t[i].y),s);
end;
{треугольник}
setcolor(12);
line(x0+round(10*t[imx].x),y0+round(10*t[imx].y),x0+round(10*t[jmx].x),y0+round(10*t[jmx].y));
line(x0+round(10*t[jmx].x),y0+round(10*t[jmx].y),x0+round(10*t[kmx].x),y0+round(10*t[kmx].y));
line(x0+round(10*t[imx].x),y0+round(10*t[imx].y),x0+round(10*t[kmx].x),y0+round(10*t[kmx].y));
{ищем точку внутри для подписи}
x1:=t[imx].x+(t[jmx].x-t[imx].x)/2;
y1:=t[imx].y+(t[jmx].y-t[imx].y)/2;
x:=x1+(t[kmx].x-x1)/2;
y:=y1+(t[kmx].y-y1)/2;
str(mx:0:2,s);
outtextXY(x0+round(10*x),y0+round(10*y),'S='+s);
readln;
end.