Составление таблицы функции y=a³/(a²+x2) для x , принадлежащих отрезку [-1; 1] с шагом 0.1. так как пример цикла типа for должен быть целочисленным , удобнее использовать цикл while, в котором значение x можно изменять при каждом шаге на dx=0.1

Поменяй функцию и все. Просто я не понял что за x2. типа скр(х) или х*2.
Дал тебе свой пример, сам себе писал, работал.

program Tabul;
Uses crt;
var x,x1,h,y:real;
begin
clrscr;
writeln('    x       y   ');
x:=-1;
x1:=1;
h:=0.1;
while x<=x1 do
begin
y:=(sqrt(sqr(x)+3))/(2-x);
writeln(x:6:1, y:9:2);
x:=x+h;
end;
Readkey;
end.