Вопрос по информатике:

Помогите исправить ошибки. Для заданной функции вывести на экран значение функции которые лежат в пределах от -1 до 1 и соответствующие им значения аргумента на отрезке d∈[a;5] с шагом h=0,2
ЧТО не правильно ???
Program Tab;
var r,d,h,a:real;
const h=0,2;
begin
repeat
Writeln ('vasdas');
readln (a,h);
until (a<5)and (a>=0);
d:=a;
while d<=5 do
begin
r:=sqr(d/3)*d/3-cos((sqr(d))/3,7)-sqrt(d-1,2);
if(r>=-1) and(r<=1) then
Writeln ('pri d=', d:6:2, ' r=', r:6:2);
d:=d+h;
end;
end.