Массив записей: при вводе значений для множества окружностей выводит лишь один параметр одной

program lab9;
const nmax=10;                  
type TPoint=record              
        x,y:real;              
           end;
     okr=record                
        x,y,r:real;
         end;
 
function Peres(a,b:TPoint;c:okr):boolean;    
var s,ab,h:real;                          
begin
s:=abs(a.x*(b.y-c.y)+b.x*(c.y-a.y)+c.x*(a.y-b.y));     
ab:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));                  
h:=s/ab;                                              
Peres:=h<c.r;
end;
var a:array[1..nmax] of TPoint;     
    b:array[1..nmax] of okr;        
    n,m,i,j,k,p,mx,imx,jmx:integer;
begin
repeat
writeln('Количество точек от 0 до ',nmax,' n=');    
readln(n);                                          
until n in [0..nmax];                               
writeln('Введите координаты точек:');               
for i:=1 to n do
begin
writeln('Точка ',i);
write('x=');
readln(a[i].x);
write('y=');
readln(a[i].y);
end;
repeat
write('Количество окружностей до ',nmax,' m=');
readln(m);
until m in [1..nmax];                                   
begin
writeln('Окружность ',i);
write('x=');
readln(b[i].x);
write('y=');
readln(b[i].y);
write('R=');
readln(b[i].R);
end;
writeln('Координаты точек:');
write('X:');
for i:=1 to n do
write(a[i].x:6:0);
writeln;
write('Y:');
for i:=1 to n do
write(a[i].y:6:0);
writeln;
writeln;
writeln('Параметры окружностей:');
write('X:');
for i:=1 to m do
write(b[i].x:6:0);
writeln;
write('Y:');
for i:=1 to m do
write(b[i].y:6:0);
writeln;
write('R:');
for i:=1 to m do
write(b[i].r:6:0);
writeln;
writeln;
mx:=0;
imx:=0;
jmx:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
 begin
  k:=0;
  for p:=1 to m do
  if Peres(a[i],a[j],b[p]) then k:=k+1;
  if k>mx then
   begin
    mx:=k;
    imx:=i;                                                 
    jmx:=j;                                                 
   end;
 end;
if mx=0 then write('Нет пересекающихся прямых и окружностей')
else
 begin
  writeln('Максимальное число пересечений прямой с окружностями=',mx);
  write('Эта прямая проходит через точки (',a[imx].x:0:0,';',a[imx].y:0:0,') и (',a[jmx].x:0:0,';',a[jmx].y:0:0,')');
 end;
readln
end.

for i:=1 to m do