Не работает For с Real-ом - Turbo Pascal

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

В общем, проблема такая: нужно решить уравнение y для значений x=[0,3pi] с шагом в pi/2, но проблема такая, почему то фор не хочет компилироваться с real и, как узаказать шаг для x? а то он каждый рах плюсует 1 в переменной x. Сделать это надо ОБЯЗАТЕЛЬНО через фор через другие циклы получается само собой. Буду рад за ответы

program zxc;
var x,y: Real;
begin
for x:=0 to 3*pi do begin
y:=0.5*x+sin(x)*sin(x);
writeln('x= ',x,',y= ',y);
x:=x+pi/2;
end;
end.

Решение задачи: «Не работает For с Real-ом»

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

program zxc;
var
  x,y: Real;
  i:integer;
begin
for i := 0 to 6 do begin
x := i*pi/2;
y:=0.5*x+sin(x)*sin(x);
writeln('x= ',x,',y= ',y);
x:=x+pi/2;
end;
end.

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

В программе объявлены три переменные: x, y и i. Переменная x типа Real, а переменные y и i типа Integer.
В цикле for i := 0 to 6 do происходит итерация от 0 до 6 (inclusive).
На каждой итерации цикла значение переменной i увеличивается на 1.
Значение переменной x вычисляется как i*pi/2, где pi - это константа, представляющая число пи (примерно равное 3.14159).
Значение переменной y вычисляется как 0.5x+sin(x)sin(x), где sin(x) - это функция, возвращающая синус значения переменной x.
Вычисленные значения x и y записываются в файл с помощью функции writeln. В строке 'x= ' перед значением x ставится пробел, чтобы строка форматирования была корректной.
После завершения цикла значение переменной x увеличивается на pi/2. Это необходимо для перехода к следующей итерации цикла.
Программа завершается после завершения цикла.