Вычислить значение функции, предварительно проверив, что это возможно при заданных значениях аргументов. у=2tgx/2x-a — Pascal(Паскаль)

uses crt;
const t = 0.5; {здесь указываем шаг}
const minX = 1; {здесь указываем нижнюю границу}
const maxX = 11; {здесь указываем верхнюю границу}
var x, y: real;
cond: string;
begin
  x:=minX;
  writeln('x':5,'y':5,'':2,'condition');
  while x<maxX do
    begin
      if  (x>2)and(x<9) then begin  y:=x; cond:='2<x<9'; end
      else begin y:=sqr(cos(x*x)); cond:='ostalnoy sluchaj'; end;     
      writeln(x:5:2,y:5:2,' ':2,cond);
      x:=x+t;
    end;
end.