Проблема с 205 ошибкой в Pascal

[d00ker]

Вот код программы целиком. Работаю в Turbo 7.0 . Error 205 вылетает на 19 строчке. Не пойму, в чем ошибка?

program lab_4;
uses crt;
const
     eps=0.00001;
var
   y,z:real;
function logarifm(z,eps:real):real;
var
   s,a,ys:real;
   i:integer;
begin
     s:=0;
     a:=z;
     i:=1;
     ys:=((a-1)*(a-1))/((a+1)*(a+1));
     while abs(a)>=eps do begin
           s:=s+a;
           i:=i+1;
           a:=a*ys*((2*i-1)/(2*i+1));
     end;
     if s<= 0 then begin
        writeln('Логарифм меньше или равен 0');
        readln;halt end;
     logarifm:=2*s;
end;
begin
     clrscr;
     write('Введите z: ');
     readln(z);
     if z=-1 then begin
        writeln('Знаменатель множителя равен 0');
        readln;halt end;
     y:=ln(logarifm(z,eps));
     writeln('Ответ: ',y:3:1);
     readln;
end.

[Z1000000]

Да вроде работает все.
Какое число задаешь?

[NSvirus]

Поиск юзай

[d00ker]

Сообщение от Z1000000

Да вроде работает все.
Какое число задаешь?

Если задавать все числа >=-1, то выводится все правильно, а как только вводишь числа <-1, то выводит эту самую ошибку.

[d00ker]

Сообщение от NSvirus

Поиск юзай

Первым делом за это и принялся, но мне это мало что дало, а именно к решению проблемы меня это не привело.

[Z1000000]

В строке 19 переменная "a" принимает слишком большое значение ( a > 10^308 ). Происходит переполнение - паскаль такими большими числами оперировать не может.
Как поправить не знаю, потому что не понимаю , что вычисляет функция logarifm

[d00ker]

Сообщение от Z1000000

В строке 19 переменная "a" принимает слишком большое значение ( a > 10^308 ). Происходит переполнение - паскаль такими большими числами оперировать не может.
Как поправить не знаю, потому что не понимаю , что вычисляет функция logarifm

Задание в документе Задание.doc