Ошибка вещественное деление на ноль - Pascal ABC

Формулировка задачи:

в 13 строчке выдает ошибку "Вещественное деление на 0" Подскажите, пожалуйста, как исправить?

Case N of 3:
    begin
 writeln('Ввести значение a,b и шаг c');
 write('a=');
 readln(a);
 write('b=');
 readln(b);
 write('c=');
 readln(c);
     begin
      repeat
      if x<=-0.5 then y:=sqr(x)+sin(sqr(x))/cos(sqr(x))*(x+pi/2);
      if (x>-0.5) and (x<=0.5) then y:=cos(exp(ln(abs(x+ln(abs(x))*(1/5)))));
      if x>0.5 then y:=exp(ln(x+exp(x)*sqrt(x+1)-pi)*(1/3));
      if y>ymax then ymax:=y;
      if y<ymin then ymin:=y;
      writeln('x=',x:1:1,'                         y=',y:1:1);
      writeln('Максимальное=',ymax:1:2,'       Минимальное=',ymin:1:2);
      writeln;
      x:=x+c;
      until x<b;
     end;
    end;
  end;
  end.

Решение задачи: «Ошибка вещественное деление на ноль»

Листинг программы

if x<=-0.5 then
     begin
      y:=sqr(x)+sin(sqr(x))/cos(sqr(x))*(x+pi/2);
      writeln('x=',x:1:1,'                         y=',y:1:1);
     end
    else if (x>-0.5) and (x<=0.5) then
     if x=0 then writeln('x=',x:1:1,'                         y Г*ГҐ Г®ГЇГ°ГҐГ¤ГҐГ«ГҐГ*Г®')
     else
      begin
       y:=cos(exp(ln(abs(x+ln(abs(x))*(1/5)))));
       writeln('x=',x:1:1,'                         y=',y:1:1);
      end

Объяснение кода листинга программы

В данном коде решается задача вычисления значения функции для различных значений её аргумента x. Значение функции выводится на экран. В первой части условия (если x<=-0.5) выполняется следующая последовательность действий:

Вычисляется значение выражения y: sqr(x)+sin(sqr(x))/cos(sqr(x))*(x+pi/2).
Значение y выводится на экран с помощью команды writeln('x=',x:1:1,' y=',y:1:1). Во второй части условия (если x>-0.5 и x<=0.5) выполняется следующая последовательность действий:
Проверяется условие x=0. Если оно истинно, то выводится сообщение об ошибке x=',x:1:1,' y Г*ГҐ Г®ГЇГ°ГҐГ¤ГҐГ«ГҐГ*Г®.
Если условие x=0 ложно, то вычисляется значение выражения y: cos(exp(ln(abs(x+ln(abs(x))*(1/5))))).
Значение y выводится на экран с помощью команды writeln('x=',x:1:1,' y=',y:1:1).