Просчитать количество отрицательных

[Алькер]

Протабулировать функцию у = sin(x+ i) на отрезке [0;i]с шагом h=0,01*i, где i – номер варианта. Результаты вычислений вывести на экран в виде таблицы пар чисел х и у. вычислить произведение положительных значений функции у и количество отрицательных.

program Tabulfuncii;
const i = 6;
var x, h,y, max, min , k : real;
begin
k:=0;
h:= 0.01*i;
x:= 0;
max:= sin(x+i);
min:= sin(x+i);
writeln ('      х        у');
repeat
y:= sin(x+i);
writeln(x:7:2, y:7:2);
if y > max then max:=y;
 x:= x + h;
 until x > i + h/2;
writeln('max =', max:5:2);
if y < min then min:=y+0;
writeln('Количество отрицательных чисел=',k);
end.

не получается вычислить количество отрицательных

[Stilet]

program Tabulfuncii;
...
var ... neg:integer;
begin
...
repeat
y:= sin(x+i);
if y<0 then inc(neg);
...
 until x > i + h/2;
writeln('max =', max:5:2,' Negative=',neg);
...
end.

Идея ясна?