Вывести на печать все отрицательные значения функции, найти их количество к - PascalABC.NET

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

Дана функция f(x)= x3 +1. хÎ[n;m]. Вывести на печать все отрицательные значения функции, найти их количество к, отпечатать его. Шаг по х=1. Вот начало программы

                    Листинг программы
                
 
                        
                          
                    
program Project2;
function f(x:real):real;
begin
   Result:=x*x*x+1;
end;
const h=1;
var k,n,m,x,y:real;
begin
writeln('n=');
readln(n);
writeln('m=');
readln(m);
 readln (x);
   x:=n-h;
   Repeat
      x:=x+h;
      y:=f(x);

А что дальше писать-ума не приложу. Прошу вашей помощи

Решение задачи: «Вывести на печать все отрицательные значения функции, найти их количество к»

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

program Project2;
 
function f(x: real): real;
begin
  Result := x * x * x + 1;
end;
 
const
  h = 1;
 
var
  n, m, x, y: real;
  k: integer;
  
begin
  writeln('n=');
  readln(n);
  writeln('m=');
  readln(m);
  x := n;
  repeat
    y := f(x);
    if y<0 then
    Begin
      k:=k+1;
      writeln('При x = ',x:0:2,' y = ',y:0:4);
    End;
    x := x + h;
  until x > m;
  if k=0 then writeln('Нет отрицательных значений функции на данном отрезке')
   else writeln('Отрицательных значений = ',k);
end.

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

В этом коде:

Функция f(x) вычисляет куб x, а затем добавляет 1.
Программа запрашивает у пользователя два числа: n и m.
Затем программа вычисляет и выводит значения функции f(x) для каждого x между n и m (включительно).
Если значение функции отрицательное, программа увеличивает счетчик k на 1 и выводит значения x и y.
Если k=0, программа выводит сообщение Нет отрицательных значений функции на данном отрезке.
Если k>0, программа выводит сообщение Отрицательных значений = k.