Пересечение точек с прямой

program pyatna;
var
  xl, yl, xc, yc, rc, xo, yo:array[1..1000] of real;
  i, n, m, kn, km, ko:integer;
begin
  repeat
  read(n);
  read(m);
  if (n>=3) and (n<=1000) and (m<=1000) then
  begin
  for kn:=1 to n do
  begin
  read(xl[kn]);
  read(yl[kn]);
  end;
  for km:=1 to m do
  begin
  read(xc[km]);
  read(yc[km]);
  read(rc[km]);
  end;
  end; 
  until (n=0) and (m=0);
  for ko:=1 to 1000 do
  begin
  for km:=1 to m do
  begin
  while (xo[ko]-xc[km])*(xo[ko]-xc[km])+(yo[ko]-yc[km])*(yo[ko]-yc[km])=rc[km]*rc[km] do
  begin
  for kn:=1 to n do
  begin
  if (xo[ko]=xl[kn]) and (yo[ko]=yl[kn]) then writeln('1') else writeln('0');
  end;
  end;
  end;
  end;
end.

type point=record   //точка
           x,y:real;
           end;
     otr=record //отрезок
         a,b:point;
         end;
     krug=record  //пятно
          c:point;
          r:real;
          end;
function peres(ot:otr;kr:krug):boolean;
begin
//здесь пишете функцию
end;
var n:integer;//количество отрезков
    m:integer;//количество пятен
    k,i,j,p:integer;
begin
p:=0;
for i:=1 to n do//все отрезки
 begin
  j:=1;//проверяем на пересечение хоть с 1 кругом
  while(j<=m)and not peres(otr[i],ptn[j]) do inc(j);
  if j<=m then inc(p);//пересекается
 end;
if p=0 then write('не испортил')
else if p<m then write('испортил частично')
else write('испортил полностью')
end.