Программа не находит корни уравнения - Turbo Pascal

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

Есть некий код, не хочет работать. не находит x и yПомогите разобраться пожалуйста.

uses crt;
 
  function f(x: Real): Real;
  begin
    f:=2*x+y+ln(-y+1;
  end;
 
  function fxy(x, y: Real): Real;
  begin
    fxy:=(2/y)-2;
  end;
 
const
  a=1;
  b=2;
  h=0.1;
  n=10;
var
   x, ye: Real;
   i: Integer;
begin
  ClrScr;
  Writeln('x':3, 'y':14, 'Эйлер':20);
  x:=a;
  ye:=1;
  yem:=1;
  yr:=1;
  for i:=1 to n do
  begin

    ye:=ye+h*fxy(x, ye);
    
    x:=x+h;
  end;
  Readkey;
end.

Решение задачи: «Программа не находит корни уравнения»

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

  function f(x, y: real): real;
  begin
    f := 2 / y - 2;
  end;
 
const
  a  = 1;
  b  = 2;
  y0 = 3;
  n  = 10;
var
  x, y, h, C: real;
  i: integer;
begin
  Writeln('x': 3, 'y': 14, 'Эйлер': 20);
  h := (b - a) / n;
  x := a;
  y := y0;
  writeln(x: 3: 3, y: 14: 3);
  for i := 1 to n do
  begin
    x := x + h;
    y := y + h * f(x, y);
    writeln(x: 3: 3, y: 14: 3);
  end;
end.

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

Создается функция f, которая принимает два аргумента типа real и возвращает один аргумент типа real. Внутри функции выполняется вычисление 2/y-2, где y - второй аргумент функции.
Задаются константы a, b, y0 и n. Константа a равна 1, b равна 2, y0 равна 3, а n равно 10.
Создаются переменные x, y, h и C. Переменная x равна a, y равна y0, h равна (b-a)/n, а C не используется.
Выводится строка 'x: 3 y: 14 Эйлер: 20', где 3 и 14 - это значения переменных x и y соответственно, а 20 - это значение константы y0.
Вычисляется значение переменной h как (b-a)/n.
Переменные x и y инициализируются значениями a и y0 соответственно.
Запускается цикл for, который выполняется n раз.
Внутри цикла переменные x и y увеличиваются на значение h.
Переменная y также увеличивается на значение h*f(x,y), где f - это функция, заданная в пункте 1, и ее аргументы x и y - это текущие значения переменных x и y соответственно.
После завершения цикла выводится строка с текущими значениями переменных x и y.
Программа завершается.