Протабулировать функцию в паскале

измени и примени
Program Z_1; //протабулировать функцию на [-10;6] и шаг 1
uses crt;
var a,b,x,y,h:real;
begin
a:=-10; b:=6;
write('vvesti h '); readln(h);
x:=a;
writeln(' x y');
writeln('-----------------');
repeat
if x<0 then y:=-(x+6)/2 else
if x<3 then y:=-sqrt(9-x*x) else
if x<=6 then y:=sqrt(9-sqr(x-6));
writeln(x:5:2,y:10:5);
x:=x+h;
until x>b+0.01;
end.