Табулирование функции с шагом 0,5 - PascalABC.NET

Нужно решить задачу. X принадлежит [-1,10] С шагом 0,5 y=1/2*sqr(sin(x)) Начал делать Но не знаю как сделать шагом в 0,5 и вывести все 12 значений.

var
 y,f:real;
 i:integer;
 x:array [-1..10] of integer;
begin
 for i:= -1 to 10 do
  begin
   y:=1/2*sqr(sin(x[i]));
  end;
  writeln (y);
end.

Точнее 24 значения если с шагом 0,5

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

var
 x,y:real;
begin
x:=-1;
while x<=10 do
 begin
  y:=1/2*sqr(sin(x));
  writeln ('x=',x:4:1,' y=',y:5:3);
  x:=x+0.5;
 end; 
end.

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

В коде используется язык программирования PascalABC.Net.
Переменные x и y типа real.
Значение переменной x начинается с -1 и увеличивается на 0,5 на каждой итерации цикла.
Значение переменной y вычисляется как половина значения функции sin(x) возведенного в квадрат.
Каждая итерация цикла выводит текущие значения x и y с шагом 0,5 для x и 1,5 для y.
Цикл выполняется до тех пор, пока значение переменной x не станет равным 10,5.
Код завершается после выполнения цикла.