Бесконечное выполнение программы - Pascal

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

Написал простейшую нейросеть (или что-то похожее на неё)

program NeuralNet;
uses crt;
var x, y:real;
    w:real;
    trueres, neuralres:real;
    i:integer;
begin
  clrscr;
  randomize;
  x:=random(10)+1;
  y:=random(10)+1;
  trueres:=x+y;
  writeln(x, ' + ', y, ' = ???');
  writeln('true res = ', trueres);
  neuralres:=0;
  w:=0.1;
  
  while trueres<>neuralres do
  begin
    inc(i);
    writeln('try №', i);
    neuralres:=x*w+y*w;
    writeln('neural res = ', neuralres);
    if neuralres<trueres then
      w:=w+0.1
    else
      if neuralres>trueres then
        w:=w-0.1;
  end;
end.

Её задача - научиться складывать числа в диапазоне 1..10. 2 входных нейрона - числа которые надо сложить, выходной нейрон - их сумма. Сначала я подсчитываю правильный результат (переменная trueres), чтобы впоследствии сравнивать его с результатом программы. Изначальный вес каждого нейрона - 0.1. По задумке, программа должна увеличивать вес на 0.1, если полученный ответ меньше нужного. Опять же, по задумке, это должно продолжаться до того, как вес не будет равняться единице (тоесть, нейросеть должна обучиться складывать числа за 1/0.1-1=9 шагов). Счётчик шагов встроен в программу и, если её запустить, то работать она будет бесконечно, и счётчик шагов перевалит за 9. Можете объяснить, в чём здесь проблема?

Решение задачи: «Бесконечное выполнение программы»

textual
                            Листинг программы 
                        
                            while abs(trueres-neuralres)>0.01 do