Создание и обработка графических изображений

uses GraphABC;
function F(x:real):real;// Функция, чей график будет строиться
begin
F:=cos(x)/sqrt(x)
end;
const a=pi/4; //интервал построения графика
      b=4.5*pi;
      x0=50;//координаты начала координат в графическом окне
      y0=windowheight div 2;
var i:byte;
    x,max,mx,my,h:real;
    s:string;
begin
line(x0,y0,windowwidth-10,y0);//оси
line(windowwidth-10,y0,windowwidth-20,y0+5);
line(windowwidth-10,y0,windowwidth-20,y0-5);
line(x0,2*y0,x0,10);
line(x0,10,x0-5,20);
line(x0,10,x0+5,20);
textout(x0+10,10,'Y');
textout(windowwidth-30,y0-20,'X');
//найдем макс значение функции для масштаба по Y
x:=a;
max:=F(x);
while x<=b do
 begin
  if F(x)>max then max:=F(x);
  x:=x+0.01
 end;
mx:=(windowwidth-x0-30)/b;//масштвб по Х
my:=(y0-60)/max;//масштаб по Y
for i:=1 to 14 do //засечки и подписи на осях
 begin
  line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3);
  str(i,s);
  textout(x0+round(i*mx),y0+10,s);
  if i mod 2=0 then
   begin
    line(x0-3,y0-round(i*my/10),x0+3,y0-round(i*my/10));
    line(x0-3,y0+round(i*my/10),x0+3,y0+round(i*my/10));
    str(i/10:0:1,s);
    textout(x0-20,y0-round(i*my/10),s);
    textout(x0-20,y0+round(i*my/10),'-'+s);
   end;
 end;
x:=a;
h:=0.1;
setpencolor(clRed);
moveto(x0+round(a*mx),y0-round(F(a)*my));
while x<=b do
 begin
  x:=x+h;
  lineto(x0+round(x*mx),y0-round(F(x)*my));
 end;
end.