Протабулировать функцию f(x)=sin(x^2) - Pascal

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

Составить программу вычисления значений функции F(X) на отрезке [A,B], в точках X1=A+H, где Н=(В-А)/М, М - заданное целое число. Функция - sin(x²) A - pi/6 B - 2*pi/3 M - 10 Помогите пожалуйста!

Решение задачи: «Протабулировать функцию f(x)=sin(x^2)»

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

{Составить программу вычисления значений функции F(X) на отрезке [A,B],
в точках X1=A+H, где Н=(В-А)/М, М - заданное целое число.        }
var
  y,h,a,b,x:real;
  m:integer;
 
function f(x:real):real;
begin
  f:=sin(x*x);
end;
 
begin
  m:=10;
  a:=pi/6;
  b:=2*pi/3;
  h:=(b-a)/m;
  x:=a;
  while x<=b do
    begin
      y:=f(x);
      writeln('x = ',x:8:2,', f(x) = ',y:8:2);
      x:=x+h;
    end;
  readln;
end.

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

Создается переменная m, которая представляет собой целое число.
Создаются переменные a и b, которые представляют собой действительные числа.
Создается функция f(x) которая вычисляет значение функции синуса sin(x^2).
Переменная h вычисляется как разность между b и a, деленная на m.
Переменная x устанавливается равной a.
Запускается цикл while, который выполняется до тех пор, пока x не станет больше или равно b.
Внутри цикла вызывается функция f(x) и выводится значение x и f(x).
После окончания цикла x увеличивается на h.
Вызывается функция readln(), чтобы прочитать следующую строку ввода.