Zamyka okienko w Dev-Pascalu

Witajcie! Napisałem sobie taki kod poniżej. Niestety, przy wpisywaniu wartości x oraz epsilon, okienko się zamyka.
Ktoś ma pomysł jak to naprawić? Proszę o pomoc.

program seweryn;

var x: real ;
var W: real ;
var s: real ;
var epsilon: real ;
var q: real ;
var k: longint ;
begin
write('podaj x') ;
readln(x) ;
write('podaj epsilon') ;
readln (epsilon) ;
k:=0 ;
W:=1 ;
S:=1 ;
q:=1/(sqr(1+x)) ;
repeat
W:=W*x*(-1)*(k+1)/k ;
S:=S+W ;
k:=k+1 ;
until Abs(W)<epsilon ;
writeln ('wartosc przyblizona funkcji wynosi:') ;
writeln (S) ;
writeln ('dokladnie wartosc funkcji wynosi:') ;
writeln (q) ;
writeln ('ilosc uwzglednionych wyrazow wynosi:') ;
writeln (k) ;
read (x) ;
end.

dodanie znacznika <code class="pascal"> - @furious programming

dodaj readln; na końcu to będzie czekał na entera.

Niestety dalej zamyka.

Bo k masz na początku = 0, a tylko COBOL potrafi dzielić przez 0. LOL

Działa! :) Ale czekaj... W zadaniu mam epsilon, na górze epsilona nieskończoność a na dole k=0
Wpisałem k=1 w kodzie i dla dowolnych wartości z przedziału |x|<1 wyskakują różne wyniki, czyli dobrze wychodzi.
Pytanie co z tym epsilonem...

Jak już zadajesz pytanie bardziej merytoryczne to może podaj co ten program ma robić.
Chodzi coś z obszaru Taylora?

Tak wygląda zadanie + algorytm.
Pytanie - co z tym k=0 ?
Czy to warunek konieczny, żeby k równało się 0?

1. Policz pierwszy wyraz poza pętlą, dzięki czemu nie będziesz musiał robić IF w pętli (czyli po to żeby uniknąć "if (k > 0)" przy wyliczeniu W).
2. warunek pętli powinien użyć q, S i epsilon (jeśli warunek na dokładność) lub tak jak jest (warunek na zbieżność).