Вывод графика заданной функции

Program prog_graph;
 uses Graph, Crt, ...... ;
var grDriv, grMod : integer;
 
                                   код графического режима
                  код видеографического устройства
    .....................
       { Процедуры и функции }
                          function F(var x : real) : real
                            begin
                               ..........
                            end;
    .....................
begin
    ...............................
   Write ('Введите XN, XK :');    { Ввод исходных данных }
   Readln (Xn, Xk);          { в текстовом режиме }
   Write ('Введите количество точек графика : ');
    Readln(N); 
{ Вычисление Yn и Yk и шага изменения аргумента h }
    ...............................
{--------------- Инициализация графического режима ------------}
    grDriv := Detect;
    InitGraph(grDriv, grMod, 'D:\TP\BGI');
                                                     {          путь к графическому драйверу}
{--------- Проверка успешного завершения инициализации --------}
    if GraphResult <> GrOK then 
        begin 
              writeln(' Ошибка !!!');
              {... обработка кода ошибки .....}
              delay(1000);
              exit
        end;
{---------------- Основная часть программы --------------------}
        XNE:=...;   { Задание области вывода графика; }
        YNE:=...;   {можно вводить с клавиатуры или задавать}
        Xke:=...;   {в программе }
        Yke:=...;
        Mx:=...;    { Расчет масштабов }
        My:=...;
        ...........     { Установка цветов, типов линий и др.}
        x:=xn;      { Переход в начало графика }
        x:=x+h;
        while x < xk do
        begin
              y:=F(x);
                 ...
                 ...        { Черчение отрезка прямой от предыдущей точки к }
                 ...        { точке (x, y)}
              x:=x+h
        end;
        ..........      { Черчение осей координат }
        ..........      { Вывод текста }
repeat
until KeyPressed;
{---------------- Завершение графического режима --------------}
    CloseGraph
end.

uses  crt,graph;
const t=0.0001;
var gd,gm,xc,yc,i:integer;
    a,x,x1,y,m:real;
    s:string;
begin
clrscr;
write('a=');
readln(a);
write('x=');
readln(x);
    x1:=abs(x);
    gd:=0;
initgraph(gd,gm,'');
    xc:=getmaxX div 2;
    yc:=getmaxY div 2;
    m:=(yc-10)/x1;
    line(10,yc,getmaxX-10,yc);
    outtextXY(getmaxX-20,yc-15,'X');
    line(xc,10,xc,getmaxy-10);
    outtextXY(xc+5,20,'Y');
    outtextXY(xc+5,yc-10,'0');
    for i:=1 to round(x)+1 do
        begin
        str(i,s);
        line(xc+round(i*m),yc-2,xc+round(i*m),yc+2);
        line(xc-round(i*m),yc-2,xc-round(i*m),yc+2);
        outtextXY(xc+round(i*m),yc+10,s);
        outtextXY(xc-round(i*m),yc+10,'-'+s);
        line(xc-2,yc+round(i*m),xc+2,yc+round(i*m));
        line(xc-2,yc-round(i*m),xc+2,yc-round(i*m));
        outtextXY(xc-20,yc-round(i*m),s);
        outtextXY(xc-20,yc+round(i*m),'-'+s);
    end;
    x:=-x1;
    while x<=x1 do
        begin
        if x*x-a*a>t then
             begin
             y:=a*x + cos(b*x);
             putpixel(xc+round(x*m),yc-round(y*m),2);
             putpixel(xc+round(x*m),yc+round(y*m),2);
             end;
        x:=x+t;
        end;
    line(318,15,316,35);
    line(320,15,322,35);
    line(630,240,610,242);
    line(630,240,610,236);
    setcolor(2);
    settextstyle(7,1,1);
    outtextxy(600,300,'sklav Wizzy');
readkey;
 
end.