Усредняющая прямая. Конфуз с вводом точек из файла

program zadacha1;
uses crt;
var
    x,y:array[1..100] of integer;
    m,k:array[1..100] of real;
    vis,niz,razn:array[1..9] of integer;
    i,j,n,d,x_1,y_1,x_2,y_2,min:integer;
    f,t:text;
Begin
clrscr;
assign(f,'C:\input_x.txt');
reset(f);while not eof(f) do begin inc(n);
                                             read(f,x[n]);
                                     end;
close(f);
assign(t,'C:\input_y.txt');
reset(t);while not eof(t) do begin inc(d);
                                              read(t,y[d]);
                                      end;
close(t);
write('Coord. X:');for n:=1 to 9 do write(x[n],' ');writeln(x[10],' ');
write('Coord. y:');for n:=1 to 9 do write(y[n],' ');writeln(y[10],' ');
for i:=1 to 9 do begin 
                             vis[i]:=0;niz[i]:=0;
                     end;
for i:=1 to 9 do begin 
                             k[i]:=(y[i+1]-y[1])/(x[i+1]-x[1]);
                      end;
min:=10;x_1:=x[1];y_1:=y[1];
for j:=1 to 9 do begin
for i:=1 to 9 do begin
                            if(k[j]>k[i]) then niz[j]:=niz[j]+1;
                            if(k[j]<k[i]) then vis[j]:=vis[j]+1;
                     end;
razn[j]:=abs(vis[j]-niz[j]);if (razn[j]<min) then 
begin min:=razn[j];x_2:=x[j+1];y_2:=y[j+1];
end;
end;
write('tochka 1:x=',x_1);writeln(' y=',y_1);
write('tochka 2:x=',x_2);writeln(' y=',y_2);
readln;
end.

assign(f,'C:\input_x.txt');
reset(f);while not eof(f) do begin inc(n);
                                             read(f,x[n]);
                                     end;
close(f);
assign(t,'C:\input_y.txt');
reset(t);while not eof(t) do begin inc(d);
                                              read(t,y[d]);
                                      end;
close(t);

assign(f,'C:\input.txt');
reset(f);
n:=0; {на всякий случай}
repeat
 inc(n);
 read(f, x[n]);
 read(f, y[n]);
until EoF(f) or (n=100);
close(f);