Вычисление определённого интеграла

[Mr_Frost]

 Function Integral(n:Integer;x,a,m:Extended):Extended;
var
  p,q:Extended;
begin
  if n=0
    then Integral := (Power(a,m*x))/(m*ln(a))
    else if n=1
           then Integral := ((power(x,n)*power(a,m*x))/(m*ln(a)))-((Power(a,m*x))/(Sqr(m)*(Sqr(ln(a)))))
           else begin
                  p := (Power(x,n)*Power(a,m*x))/(m*Ln(a));
                  q := n/(m*ln(a));
                  Integral := p-q*Integral(n-1,x,a,m);
                end;
end;
begin
repeat
    repeat
      writeln(ruswd('введите n'));
      readln(n);
      fok := (n>=0) and (IoResult=0);
      if not fok
        then writeln(ruswd('ошибка, повторите ввод, n>=0'));
    until fok;
    repeat
      writeln(ruswd('введите m'));
      readln(m);
      fok := (IoResult=0) and (m<>0);
      if not fok
        then writeln(ruswd('ошибка, повторите ввод, m<>0'));
    until fok;
    repeat
      writeln(ruswd('введите a'));
      readln(a);
      fok := (IoResult=0) and (a>1);
      if not fok
        then writeln(ruswd('ошибка, повторите ввод, а>1'));
    until fok;
    repeat
      writeln(ruswd('введите начало отрезка x1'));
      readln(x1);
      fok := (IoResult=0);
      if not fok
        then Writeln(ruswd('ошибка, повторите ввод '));
    until fok;
    repeat
      writeln(ruswd('введите начало отрезка x2'));
      readln(x2);
      fok := (IoResult=0);
      if not fok
        then Writeln(ruswd('ошибка, повторите ввод '));
    until fok;
    if x1>x2
      then begin
             Writeln (RusWD('Внимание! Значение начала отрезка больше,чем значение конца отрезка.В связи с этим будет осуществлен обмен значений x1 и x2!'));
             x1 := x1+x2;
             x2 := x1-x2;
             x1 := x1-x2;
           end;
    begin
      y := Integral(n-1,x2,a,m)-Integral(n-1,x1,a,m);
      writeln(ruswd('y:',y:7:3));
      readln;
      writeln(ruswd('повторить вычисление?'));
      key := 'Y'
    end;
    until upcase(key)<>'Y';
 end.

 writeln(ruswd('y:',y:7:3));

тут выдаёт ошибку... [Pascal Error] Project1.dpr(133): E2034 Too many actual parameters...... как исправить?

[Mr_Frost]

забудьте всё ))) я всё сделал, тему можно удалять