Чем тут Ошибка?? помогите исправить (паскаль)

program func1;
Uses crt;
begin
clrscr;
write ('a=');
write ('b=');
write ('h=');
read(a,b,h);
x:=a;
while x <=b do
begin
y:=sin(sqr(x))+7
writeLn(x=3:1; ;y=7:3);
x:=x+h
end
End.

проверял на ABC пишет неизвестный идентификатор a b h