Не знаю куда тему оформить. Поэтому прошу сильно не ругать...

program lab6;
var
  s, a:real;
  i, k: integer;
begin
  a := 0;
  s := 0;
  i := 1;
  k:=1;
  repeat
    i := i + 1;
    a := k / (2 * i - 1);
    s := s + a;
    k := - k;
  until (a <= 0.0001);
  write('Answer:', s:10:9);
end.

Программа не выдаёт ответ. В чём может быть проблема?..