Вычисление количества различных точек пересечения двух прямых

type Line=record
k,b:real;
end;
function per(l1:Line;l2:Line;var x:real;var y:real):integer;
var xp,yp:real;
begin
if(l1.k<>l2.k) then begin
xp:=(l2.b-l1.b)/(l1.k-l2.k);
yp:=(l1.k*l2.b-l2.k*l1.b)/(l1.k-l2.k);
x:=xp;
y:=yp;
per:=0;
end
else
per:=1;
end;
var lines:array [1..10] of Line;
i,j,k,m:integer;
xp,yp:real;
begin
while((m>10) or (m<1)) do begin
writeln('count? ');
readln(m);
end;
for i:=1 to m do begin
writeln('line ',i);
writeln('k? ');readln(lines[i].k);
writeln('b? ');readln(lines[i].b);
end;
for i:=1 to m do
for j:=i to m do
if(i<>j) then begin
if(lines[i].k<>lines[j].k) then begin 
per(lines[i],lines[j],xp,yp);
writeln('lines ',i,' and ',j, '  1 tochka (',xp,',',yp,')');
end;
if((lines[i].k=lines[j].k) and (lines[i].b<>lines[j].b)) then  writeln('lines ',i,' and ',j, '  0 tochek');
if((lines[i].k=lines[j].k) and (lines[i].b=lines[j].b)) then writeln('lines ',i,' and ',j, '  infinity tochek');
 
end;
end.