Почему не повторяется цикл? (Паскаль)

Вот программа:

Program Tak_3_2;

uses crt;

var x,dx,y:real;

Begin

clrscr;

dx:=0.2;

x:=-1;

Repeat

If (x>0)and(sin(x)<>0) Then

y:=ln(x)/sin(x)*cos(x);

Writeln('x=¦ ',x:0:2,' ¦y=¦',y:0:4);

x:=x+dx;

Until x<=1;

readln;

end.

Посмотрите что тут не так?