Неверная вещественная операция PascalABC

[notter]

посмотрите пожалуйста мою задачу, чет у меня не получается выдает ошибку "Неверная вещественная операция" имя_файла.pas строка 23...

Вот задание



Оно правда на украинском...
нужно найти 'y', где гиперболический тангенс tn(x) вычисляется за формулой... Нахождение тангенса и факториала оформить как процедуру.
Вот код:

Program kk;

Procedure Factorial(N:integer; Var F:real);
Begin
if N<=1
then F:=1
else begin Factorial(N-1, F); F:=F*N end
End;

Procedure tanh(y:real; var x:real);
Var k,k1:integer; n1,n2,i,j:real;
begin
Factorial((2*k+1),n1);
Factorial((2*k),n2);
k:=0;
repeat
i:=(power(x,(2*k)+1));
k:=k+1; until k=5;
k1:=1;
repeat
j:=(power(x,(2*k1)));
k1:=k1+1; until k1=5;
x:=(i/n1)/(j/n2); //ошибка где то тут...
end;

Var i,y,k,l,t:real;
Begin
readln(t);
tanh(1/2,i);
tanh(t-(1/10),l);
tanh((4*t)-1,k);
y:=(2*i-3*l)/(5-l);
Writeln(y);
readln;
end.

Подскажите пожалуйста что не так, а то 2 суток голову ломаю, а понять не могу