Проблема в работе программы

[Elabrion]

Не хочет работать, подскажите почему? (данные в файле "lab1.dat" -> 1.5 3 0.5)
P.S. можете не говорить что я дурак, и сам знаю. я привык все делать ручками, а тут препод требует через файлы, а я в них ничего не понимаю. если можете, сделайте чтобы работало, пожалуйста, а вторую задачу я сам по аналогии

Program lab1; 
var 
 a,b,x,y,z:text; 
begin 
assign(a,'lab1.dat'); 
assign(b,'lab1.dat'); 
assign(x,'lab1.dat'); 
assign(y,'lab1.res'); 
assign(z,'lab1.res'); 
reset(a); 
reset(b); 
reset(x); 
rewrite(y); 
rewrite(z); 
y:=(a*sqrt((b*b)*x+(lnx/ln10)))/(exp(ax)-abs(cosx))+exp(1/3*ln(x/a)); 
z:=ln(a*x*x*x+b)/ln5+sqr(sin(b*x+abs(2a)))*sqr(sin(b*x+abs(2a)))*sin(b*x+abs(2a)); 
writeln(y,z); 
close(a,b,x); 
close(y,z); 
end.

[Stilet]

y:=(a*

Нененененее..... Ты бы хоть имел совесть текст ошибки привести в студию.
Эти переменные - файлы. И доставать из них информацию нужно функциями считывания

var a1,b1,x1:real;
...
readln(a,a1,b1,x1);
...
y:=(a1*sqrt((b1*b1)*x1...

Это как пример, ибо сдается мне содержимое твоего файла вот так просто не считаешь.