Вывести на экран все значения функции y=sinX на интервале от -1

program zz1;
var x,y:real; //заводим переменные не целого типа
begin
x:=-1; //задаем изначальное значение для х
while xlt;=1 do //организуем цикл, который переберет все числа от -1 до 1 с шагом 0.1
begin
y:=sin(x); //вычисляем значение функции y=sin(x)
writeln( для х = , x:4:1,  y= , y:3:3); //выводим на экран число х и приобретенное значение y в столбец
x:=x+0.1;  // увеличиваем х на значение шага                                         
end;
end.