Вывести на экран все значения функции y=sinX на промежутке от -1 до 1 с шагом 0,1.паскаль

Var i:longint; 
    a:real;

begin
for i:=1 to 10 do //for нельзя делать по дробным числам, поэтому будем в цикле делить на 10
 begin
   a:=i;  //integer это целочисленный тип, поэтому присваиваем его значение к переменной типа real
   write(sin(a/10), );//синус от положительного
   write(sin(-(a/10)), );//синус от отритцательного
 end;

end.