Переписать прогу.

[Flo]

Здрасте всем. Нужна помощь, буду очень благодарен.
Есть два задания:
1) На плоскости заданы n точек своими координатами, Найдите уравнение прямой которой принадлежит наибольшее число данных точек.
2) На плоскости заданы 2n точек своими координатами, Найдите уравнение какой-либо прямой, делящей данное множество на два множества по n точек.
К первому заданию есть код, Полностью рабочий, нужно переделать его во второе задание.
Код к №1

Program lalala;
type
    point=record
        x,y:real;
    end;
var
  cds:array [1..10] of point;
  rate:array [1..100] of byte;
  lines:array [1..100,1..10] of point;
  i,j,n,m,k,l,s,max:integer;
  check:boolean;
  
function a(x1,x2,y1,y2:real):real;
begin
    if x2<>x1 then
      a:=(y2-y1)/(x2-x1)
    else
      a:=0;
end;

function b(x1,x2,y1,y2:real):real;
begin
    if x2<>x1 then
      b:=((y1*x2) - (x1*y2))/(x2-x1)
    else
      b:=(y1*x2) - (x1*y2)
end;
  
function acr(line:integer;tochka:point):boolean;
begin
    acr:=false;
    if (tochka.x<>lines[line,1].x) or (tochka.y<>lines[line,1].y) then
       if (tochka.x<>lines[line,2].x) or (tochka.y<>lines[line,2].y) then
          if a(lines[line,2].x,tochka.x,lines[line,2].y,tochka.y) = a(lines[line,1].x,lines[line,2].x,lines[line,1].y,lines[line,2].y) then
             if b(lines[line,2].x,tochka.x,lines[line,2].y,tochka.y) = b(lines[line,1].x,lines[line,2].x,lines[line,1].y,lines[line,2].y) then
                acr:=true;
end;

  
begin

    for i := 1 to 10 do
    begin
        cds[i].x := -10000;
        cds[i].y := -10000;
    end;
    write('Vvedite kol-vo tochek: ');
    readln(n);
    i := 1;
    while(i <= n) do
    begin
        check := true;
        write('x',i,'=');
        readln(cds[i].x);
        write('y',i,'=');
        readln(cds[i].y);
        writeln;
        for j := 1 to i do
        begin
            if(i <> j) then
            begin
                if( (cds[i].x = cds[j].x) and (cds[i].y = cds[j].y) ) then
                begin
                    writeln('Vvedite druguju tochku');
                    check:= false;
                    break;
                end;
            end;
        end;
        if check then
        begin
            inc(i);
        end;
    end;
    
    m:=0;
    for i:=1 to n-1 do
        for j:=i+1 to n do
        begin
          inc(m);
          lines[m,1].x:=cds[i].x;
          lines[m,1].y:=cds[i].y;
          lines[m,2].x:=cds[j].x;
          lines[m,2].y:=cds[j].y;
        end;
    for i:=1 to m do
        rate[i]:=2;
    for i:=1 to m do
        for j:=1 to n do
        begin
            if acr(i,cds[j]) then
            begin
                inc(rate[i]);
                lines[i,rate[i]].x:=cds[j].x;
                lines[i,rate[i]].y:=cds[j].y;
            end;
        end;
    max:=1;
    for i:=2 to m do
        if rate[i]>rate[max] then
            max:=i;
    writeln('y=',a
    (lines[max,1].x,lines[max,rate[max]].x,lines[max,1].y,lines[max,rate[max]].y),'x+(',b(lines[max,1].x,lines[max,rate[max]].x,lines[max,1].y,lines[max,rate[max]].y),')');
end.

Заранее спасибо, жду любой помощи.

[Flo]

Гайс, реали нид хелп виз ит.

[Летучий_СкилетиК]

Сообщение от Flo

Гайс, реали нид хелп виз ит.

, код обьемный, изменять нужно многое, помогу за вознагрождение

[Flo]

Сообщение от Летучий_СкилетиК

, код обьемный, изменять нужно многое, помогу за вознагрождение

Я думаю что мы разберёмся) Скайп или айсикью ( лучше скайп )