Вычисление выражения: Ошибка infinity - PascalABC.NET

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

program prim;
uses crt;
Label 1;
var
a,c,y,x,xn,xk,hx:real;
 
otv:0..1;
begin
1:Clrscr;
Writeln ('Введите y Верхняя гроница, нижняя и шаг изменения');
Readln (y,xn,xk,hx);
Writeln ('Кординаты');
Writeln ('-------------------');
Writeln ('_______________________');
Writeln ('    x    :   '     '      y');
Writeln ('_______________________');

x:=xn;
repeat
if (x+5<0) and (c=0) then
y:=1/a*x;
 
if (x+5>0) and (c<>0) then
y:=x-a/x
else
y:=10*x/c-4;
Writeln (x:7:2,':',y:7:2);
x:=x+hx;
Until (x>xk);
Writeln ('------------------------------------');
Writeln ('Будете продолжать работу ' ' Да-1,Нет-0');
Readln (otv);
if otv=1 then Goto 1;
 
end.

Решение задачи: «Вычисление выражения: Ошибка infinity»

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

program prim;
var
  a, b, c, y, x, xn, xk, hx: real; 
  otv: 0..1;
begin
  repeat
    Writeln('Введите a,b,c, Верхняя граница, нижняя и шаг изменения');
    Readln(a, b, c, xn, xk, hx);
    Writeln('Кординаты');
    Writeln('-------------------');
    Writeln('<br>');
    Writeln('    x    :   ''      y');
    Writeln('<br>');
    
    
    x := xn;
    repeat
      if (x + 5 < 0) and (c = 0) then y := 1 / (a * x) - b
      else if (x + 5 > 0) and (c <> 0) then y := (x - a) / x
      else y := 10 * x / (c - 4);
      
      Writeln(x:7:2, ':', y:7:2);
      x := x + hx;
    until (x > xk);
    Writeln('------------------------------------');
    Writeln('Будете продолжать работу '' Да-1,Нет-0');
    Readln(otv);
  until otv <> 1;  
end.

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

Список элементов кода:

Объявление переменных: a, b, c, y, x, xn, xk, hx: real; otv: 0..1;
Ввод данных от пользователя: a, b, c, xn, xk, hx;
Вывод координат в формате: x:y;
Основной цикл, который выполняется до тех пор, пока значение переменной x меньше или равно верхней границе и значение переменной c не равно нулю;
Расчет значения переменной y в зависимости от условий;
Вывод значения переменной x и y в формате: x:y;
Увеличение значения переменной x на шаг изменения hx;
Проверка условия для выхода из цикла;
Повторение шагов 4-8 до достижения нужного значения переменной x;
Вывод сообщения с предложением продолжить работу или нет;
Чтение ответа от пользователя и проверка его значения;
Повторение шагов 1-11 до тех пор, пока пользователь не введет Да-1.