Преобразование множества прямых линий

uses crt;
const nmax=15;
type prm=record
         a,b,c:integer;
         r:real;
         end;
     mas=array[1..nmax] of prm;
function Rasst(x0,y0:integer;p:prm):real;
begin
Rasst:=abs(p.a*x0+p.b*y0+p.c)/sqrt(sqr(p.a)+sqr(p.b));
end;
procedure Print(var m:mas;n:byte);
var i:byte;
begin
writeln('Коэффициенты прямых:');
write('A:');
for i:=1 to n do
write(m[i].a:5);
writeln;
write('B:');
for i:=1 to n do
write(m[i].b:5);
writeln;
write('C:');
for i:=1 to n do
write(m[i].c:5);
writeln;
writeln('Расстояния до точки А:');
write('  ');
for i:=1 to n do
write(m[i].r:5:1);
writeln;
writeln;
end;
var m,p:mas;
    n,k,i,j:byte;
    ax,ay:integer;
    x:prm;
    i1,i2:real;
begin
clrscr;
repeat
write('Количество прямых до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите коэффициенты прямых:');
for i:=1 to n do
 begin
  writeln('Прямая ',i);
  with m[i] do
   begin
    write('A=');readln(a);
    write('B=');readln(b);
    write('C=');readln(c);
   end;
 end;
clrscr;
writeln('Введите координаты точки A:');
readln(ax,ay);
for i:=1 to n do
m[i].r:=Rasst(ax,ay,m[i]);
writeln('Исходное множество:');
Print(m,n);
write('Нажмите Enter для продлжения...');
readln;
repeat
writeln('Введите диапазон расстояний i1<i2:');
readln(i1,i2);
until i1<i2 ;
k:=0;
for i:=1 to n do
if (m[i].r>=i1)and(m[i].r<=i2) then
 begin
  k:=k+1;
  p[k]:=m[i];
 end;
if k=0 then write('Прямых с расстоянием до точки А от ',i1:0:1,' до ',i2:0:1,' нет')
else
 begin
  writeln('Прямые с расстоянием до точки А от ',i1:0:1,' до ',i2:0:1);
  Print(p,k);
  write('Нажмите Enter для продлжения...');
  readln;
  for i:=1 to k-1 do
  for j:=i+1 to k do
  if p[i].r>p[j].r then
   begin
    x:=p[i];
    p[i]:=p[j];
    p[j]:=x;
   end;
  writeln('В порядке возрастания расстояний:');
  Print(p,k);
  write('Нажмите Enter для выхода...');
  readln;
 end;
end.