Помогите найти ошибку в коде. Паскаль. Выбивает ошибку 106, т. е. что-то не так с readln.

program zad2;
uses crt;
var x, xn, xk, h, y: real;
begin clrscr;
writeln('‚ўҐ¤ЁвҐ §­ 祭Ёпя xn,xk,h');
readln (xn,xk,h);
x:=xn;
while (x<=xk+h/2) do
begin
if x=1 then writeln('x=', x:4:2, ' особая точка')
else
begin
if x<(-1) then y:=exp(-x)+sqrt(1-x)
else
if (x>=(-1)) and (x<=2) then y:=sin(sqrt(x-1))
else y:=sqr(x)+sin(x);
writeln('x=',x:4:2,' y=',y:4:2)
end;
x:=x+h
end;
writeln('Љ®­Ґж ^^');
writeln;
readln;
end.

Исправила.
if (x>=1) and (x<=2) then y:=sin(sqrt(x-1))
Выбивает тоже самое.

Вообще перестало работать.