Составить программу табулирования функции y=f(x) на отрезке [a, b] - Turbo Pascal (33618)

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

составить программу табулирования функции y=f(x) на отрезке [a, b] с шагом h=(b-a)/m где m – заданное число. Оператор цикла for. Функция a b m xsin(x) 0 3pi 10/ Не могу найти ошибку в программе. Помогите пожалуйста

const
a=0;
b=3*Pi;
m=10;
var
x,y,h,i:real;
n:integer;
begin
h:=(b-a)/m;
x:=a;
n:=trunc(h)+1;
for i:=1 to n do
begin
y:=x*sin(x);
writeln('X= ',x:6:1,'Y= ',y:6:2);
x:=x+h;
end;
readln;
end.

Решение задачи: «Составить программу табулирования функции y=f(x) на отрезке [a, b]»

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

const a=0;
      b=3*Pi;
      m=10;
var x,y,h:real;
    i:integer;
begin
h:=(b-a)/(m-1);
x:=a;
for i:=1 to m do
 begin
   y:=x*sin(x);
   writeln('X=',x:5:2,'  Y=',y:6:3);
   x:=x+h;
  end;
readln;
end.

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

const - объявляются константы, которые используются в программе
a=0; - задается начальное значение переменной a
b=3*Pi; - задается конечное значение переменной b
m=10; - задается количество точек на интервале
var - объявляются переменные
x,y,h:real; - объявляются переменные для хранения значений x, y и h
i:integer; - объявляется переменная для хранения значения i
begin - начинается блок кода
h:=(b-a)/(m-1); - вычисляется шаг h
x:=a; - задается начальное значение переменной x
for i:=1 to m do - начинается цикл for i от 1 до m
begin
y:=x*sin(x); - вычисляется значение y
writeln('X=',x:5:2,' Y=',y:6:3); - выводится значение x и y
x:=x+h; - значение x увеличивается на h
end;
readln; - считывается символ новой строки
end. - заканчивается блок кода