Найти произведение вычисленных значений функций

var f, x, a, b, h, p: real;
    i, n: integer;
begin
  write('a = ');
  readln(a);
  repeat
    write('b <> a; b = ');
    readln(b)
  until b <> a;
  if a > b
    then begin
      x := a;
      a := b;
      b := x
    end;
  repeat
    write('n > 1; n = ');
    readln(n)
  until n > 1;
  h := (b - a) / (n - 1);
  p := 1;
  writeln('x':10, 'f(x)':25);
  for i := 0 to n - 1 do
    begin
      x := a + h * i;
      write(x);
      if x = -1
        then writeln(' функция не определена')
        else begin
          f := sin(2 * pi * x) / (1 + x);
          writeln('  ', f);
          if frac(abs(f)) < 0.5 then p := p * f
        end
    end;
  if p = 1
    then writeln('Нет значений функции с дробной частью < 0.5')
    else writeln('Произведение значений функции с дробной частью < 0.5: ', p);
  readln
end.