Дано n точек, определить какое максимальное количество точек лежит на одной прямой

const n=70;
var t:array[1..2,1..n] of integer;
    i,j,k,q,mx,imx,jmx,a,b,c:integer;//если не писать уравнение, то a,b,c убрать
    s1,s2,s3:string;
begin
randomize;
writeln('Список точек');
for i:=1 to n do
 begin
  t[1,i]:=random(20);
  t[2,i]:=random(20);
  Str(i:2,s1);
  Str(t[1,i]:2,s2);
  Str(t[2,i]:2,s3);
  write(s1+'('+s2+','+s3+')  ');
  if (i) mod 7=0 then writeln;
 end;
mx:=2;
imx:=1;
jmx:=2;
for i:=1 to n-1 do
for j:=i+1 to n do
 begin
  a:=t[2,i]-t[2,j];
  b:=t[1,j]-t[1,i];
  c:=t[1,i]*t[2,j]-t[1,j]*t[2,i];
  q:=0;
  for k:=1 to n do
  if((a<>0)or(b<>0))and(a*t[1,k]+b*t[2,k]+c=0) then inc(q);
  if q>mx then
   begin
    mx:=q;
    imx:=i;
    jmx:=j;
   end;
 end;
writeln('Максимальное число точек='+inttostr(mx));
writeln('принадлежит прямой, проходящей через точки: '+
   IntToStr(imx)+'('+inttostr(t[1,imx])+','+inttostr(t[2,imx])+
       ')  '+inttostr(jmx)+'('+inttostr(t[1,jmx])+','+inttostr(t[2,jmx])+')');
//дальше (составление и вывод уравнения) можно не писать
if a=0 then s1:=''
else if a=1 then s1:='x'
else if a=-1 then s1:='-x'
else s1:=IntToStr(a)+'x';
if b<>0 then
 if b=1 then
  if a=0 then s2:='y'
  else s2:='+y'
 else if b=-1 then s2:='-y'
 else if b>0 then
  if a=0 then s2:=inttostr(b)+'y'
  else s2:='+'+inttostr(b)+'y'
 else s2:=inttostr(b)+'y';
if c=0 then s3:='=0'
else if c>0 then s3:='+'+inttostr(c)+'=0'
else s3:=inttostr(c)+'=0';
writeln('Ее уравнение '+s1+s2+s3);
end.