Вычислить значение по заданной формуле

var x1,x2,h,y,a,d:real;
//x1,x2 - границы диапазона y-значение фукнкции h-шаг диапазона a,d -перменные функции
Begin
//ввод диапазона и шага
 write('x1=');
  readln(x1);
 write('x2=');
  readln(x2);
 write('h=');
  readln(h);
 //вход в цикл проверка на возрастающий или убывающий диапазон
 while (((x1>x2)AND(h<0))OR((x1<x2)AND(h>0))) do
 begin
 //условие фукнции при значении х больше 0.5 c проверкой и выводом значения функции
  if x1>=0.5 then
   begin
   if (cos(x1)=0) then
    writeln('no function')
   else
    begin
     y:= (sin(x1))/(cos(x1)) + ln(3*x1);
     writeln('x= ',x1:4:2,' result= ',y:4:8);
     end;
  end;
 //условие фукнции  при значении х меньше -0.2 c проверкой и выводом значения функции
  if x1<-0.2 then
   begin
     a:=0.5*x1-1;
     d:=exp(1/3*(ln(abs(x1-a))));
     y:= -cos(a/x1)+d;
    writeln('x= ',x1:4:2,' result= ',y:4:8);
   end;
 //условие фукнции при диапазоне -0.2<x<0.5 c проверкой и выводом значения функции
  if (x1>=-0.2) and (x1<0.5) then
  begin
   if x1=0 then // в d получается логарифм из 0
    writeln('no function')
   else
    begin
     a:=0.5*x1-1;
     d:=exp(1/3*(ln(abs(x1-a))));
     y:=exp(3*(ln(sin(x1)))) + d*exp(a+x1);
     writeln('x= ',x1:4:2,' result= ',y:4:8);
    end;
  end;
 //переход к с седующему значению х
  x1:=x1+h
end;
 readln
end.