Нужна помощь, Численные методы Опции

[-Оксана-]

Мне помогли решить задачу , но она не идет, немогу разобраться, что должно быть в файле 'isx.dat'
ПОМОГИТЕ ПЛИЗ!!!
Построить аппроксимирующую зависимость для аналитического описания результатов 9 экспериментов, в каждом из которых на вход системы подается значение параметра Х, а на выходе регистрируется реакция У.
1 Выбрать вид функции.
2 Методом наименьших квадратов найти неизвестные коэффициенты избранной функции.
Х 0,1 0,2 0,3 0,4 0,5 0,6 0,7 0,8 0,9
У 34,5 18,7 15,1 11,3 12,44 11,9 6,7 4,3 2,0

program z3;
var x,y:array[1..9] of real;
    i :byte; a,b,c,s1,s2,s3,s4,s5:real;
    f:text;
     begin
         assign(f,'isx.dat'); reset(f) ;
         for i:= 1 to 9 do read(f,x[i],y[i]);
         s1:=0; s2:=0; s3:=0; s4:=0;
         for i:=1 to 9 do
            begin
                 s1:=s1+x[i];
                 s2:=s2+ln(y[i]);
                 s3:=s3+(x[i]*x[i]);
                 s4:=s4+x[i]*ln(y[i]);
                 s5:=s5+y[i];
            end;
         a:=(s4-s1*s2/9)/(s3-s1*s1/9);
         b:=s2/9-a*s1/9;
         a:=exp(a);
         b:=exp(b);
         writeln('a=',a,'  b=',b);
         writeln ( '   x         y       yras');
         s1:=0; s2:=0; s3:=s5/9;
         for i:=1 to 9 do
              begin
                  s1:=s1+sqr(y[i]-b*exp(x[i]*ln(a)));
                  s2:=s2+sqr(y[i]-s3);
                  writeln(x[i]: 4: 4, '     ',y[i]: 4: 4,'    ',
                  b*exp (x [i] *ln (a) ) : 4 : 4) ;
              end;
         s4:=sqrt(1-s1/s2);
         writeln('h=',s4);
     end.