Помогите срочно.

Составить таблицу значений функций y=1.6-x^2/2 на отрезке[-1;9]с шагом 0.7

var   x,y:real;

begin

x:=-1;

writeln('X':2,'Y':6);

while x<=9 do

 begin

 y:=1.6-x*x/2 ;

 writeln(x:3:1,y:6:1);

 x:=x+0.7

 end

end.