Протабулировать функцию

function f(x:real):real;
begin
f:=x*sin(x)
end;
var a,b,h,x:real;
begin
write('Введите начало интервала a=');
readln(a);
repeat
write('Введите конец интервала b>',a:0:2,' b=');
readln(b);
until b>a;
repeat
write('Введите шаг h<',b-a,' h=');
readln(h);
until h<b-a;
writeln('---------------');
writeln('|  x  |  f(x) |');
writeln('---------------');
x:=a;
repeat
 writeln('|',x:5:2,'|',f(x):7:3,'|');
 x:=x+h;
until x>b+h/2;
writeln('---------------');
end.

program tab;
var
  x: real; // Переменная для хранения значения аргумента.
  a: real; // Переменная для хранения значения левой границы аргумента.
  b: real; // Переменная для хранения значения правой границы аргумента.
  h: real; // Переменная для хранения значения шага табуляции.
  y: real; //   Переменная для хранения значения результата вычислений.
begin
  Write('Введите значение левой границы вычислений: ');
  Readln(a);
  Write('Введите значение правой границы вычислений: ');
  Readln(b);
  Write('Введите значение шага табуляции: ');
  Readln(h);
  x:= a;     // Задано начальное значение аргумента.
  while x <= b + 1e-10 do  // Цикл для табуляции с условием.
   begin
     y:= x* sin(x);      // Вычисление функции.
     writeln('x = ', x:6:2, ';  F(x) = ', y:6:2); // Вывод результатов вычислений в консоль.
     x:= x + h;  // Приращение аргумента.
   end;
  Readln;
end.