Potrzebuję pomocy. Gdzie jest błąd?

[korms]

Próbuję rozwiązać zadanie, niestety bez skutku.

 

Tu link do zadania: http://ifotos.pl/z/wshaara

 

Kod

program zadanie;

var
k:integer;
m:integer;
x:real;
e:real;
s:real;
i:real;

function silnia(k:integer):integer;
begin
if k=0 then silnia:=1
else
silnia:=k*silnia(k-1);
end;

function sil(m:integer):integer;
begin
if m=0 then sil:=1
else
sil:=m*sil(m-1);
end;

begin

s:=0;
k:=0;
m:=2*k;

repeat
writeln('podaj liczbę z przedziału (-1;1)');
read(x);
until abs(x)<1;

writeln('podaj dokładność');
read(e);

repeat

  s:=s+((sil(m)*(Exp((2*k+1)*Ln(x))))/((Exp(k*Ln(4)))*(Exp(2*Ln(silnia(k))))*(2*k+1)));
  k:=k+1;
  m:=2*k;

until (sil(m)*(exp((2*k+1)*ln(x))))/((exp(k*ln(4)))*(exp(2*ln(silnia(k))))*(2*k+1))<e;

i:=Exp(-1*Ln(sin(x)));

writeln('wynik przybliżony', s);
writeln('wynik dokładny', i);
writeln('jeden', silnia(k));
writeln('dwa', sil(m));

read(x);

end.

[olesio]

Sformatuj kod i wklej go na zewnętrzny pastebin, bo forumowy i tak rozwali formatowanie. Kiedy to zrobisz, to może ktoś spojrzy.