Протабулировать функцию y=tg(x)-x/3 на заданном отрезке.

Program lab7; 
Const n=6; PI=3.1416; 
Var a,b,x,y,y0,h,min,max
Begin
Writeln('Тема: Алгоритмы и программы циклической структуры.'); 
Writeln('Вычислим значения функции у=(sin(x)/cos(x))-x/3 в равноудаленных точках отрезка.'); 
Writeln('Введите начало и конец отрезка табулирования функции.'); 
Write('a='); Readln(a); 
Write('b='); Readln(b); 
If a<PI/2 then a:=1.57; 
If b>3*PI/2 then b:=4.71; 
If (a<(PI/2))or(b>(3*PI/2)) then writeln('Функция не определена на данном промежутке'); 
h:=(b-a)/n; 
x:=a; 
While(x<=b)do 
Begin 
y:=(sin(x)/cos(x))-(x/3); 
If (y*y0)<0 then Writeln('Функция меняет знак на отрезке от ',x-h,' до ','x'); 
writeln('x=',x:4:2,' y=',y:4:2); 
If y<min then min:=y; 
If y>max then max:=y; 
x:=x+h; 
End; 
Writeln('min=',min:4:2,' max=',max:4:2); 
End.