Встречено ';', а ожидалось ')'

program labanumberone;
const e=2.71828;
var x,f:real;
begin
x:=(-9);
while x<=8 do
begin
if x<(-7) then 
f:=cos(x)/cos(x)-x*x/exp(ln(x)*(0.1*x));
writeln ('x=',x,'f=',f);
x:=(x+0.3);
if (-7)<=x<(-3) then 
f:=(exp(ln(x)*(0.1*x))/sin(x);
writeln ('x=',x,' f=',f);
x:=(x+0.3);
if (-3)<=x<6 then 
f:=x;
writeln ('x=',x,' f=',f);
x:=(x+0.3);
if 6<=x then 
f:=(e^(x))/(exp(ln(x)*(1/3))-28/lg(x);
writeln ('x=',x,' f=',f);
x:=(x+0.3);
end;
end.

f:=(e^(x))/(exp(ln(x)*(1/3))-28/lg(x));

if (-7<=x) and (X<-3) then

program labanumberone;
 
var
  x, f: real;
 
begin
  x := -9;
  while x <= 8 do
  begin
    if x < -7 then
      f := cos(x) / cos(x) - x * x / exp(ln(x) * (0.1 * x));
    writeln('x=', x, 'f=', f);
    x := x + 0.3;
    if (-7 <= x) and (x < -3) then
      f := exp(ln(x) * (0.1 * x)) / sin(x);
    writeln('x=', x, ' f=', f);
    x := x + 0.3;
    if (-3 <= x) and (x < 6) then
      f := x;
    writeln('x=', x, ' f=', f);
    x := x + 0.3;
    if 6 <= x then
      f := (exp(x)) / (exp(ln(x) * (1 / 3)) - 28 / (ln(x) / ln(e)));
    writeln('x=', x, ' f=', f);
    x := x + 0.3;
  end;
end.