Построение графика

Program Lab3;
 
//Подключение модуля графики
uses graphabc;
//Параметры окна
const x_size=800; y_size=600;
//Переменные
var  dx, dy: integer;     // Смещение для пересчета из реальных координат в экранные
     x,y: real;           // Реальные координаты
     xScr, yScr: integer; // Экранные координаты
     k: real;             // Коэф. масштабирования
     d: integer;          // Половина области определения
  // col: integer;        // Цвет
begin
   // Расчет смещения
   dx := x_size div 2;
   dy := y_size div 2;
 
   writeln('Введите область определения');
   Readln (d);
   // Создать графическое окно
   SetWindowCaption('Рисование графика функций');
   SetWindowSize(x_size, y_size);
 
   //Рисование  осей координат
   Line(0, dy, x_size, dy);
   Line(dx, 0, dx, y_size);
 
   // Расчет кооэф. маштабирования.
   k:=dx/d;
 
   // Основной цикл расчета
   x:= -d;
while (x<=d) do
   begin
       // Расчет значения ф-ии
       y:=((8-x)/(x+3));
 
       // Пересчет реальных координат в экранные
       xScr := Round(k*x+dx);
       yScr := Round(-k*y+dy);
 
       // Вывод точек
       //col:=RGB(255,0,0);
       SetPixel(xScr, yScr, clRed);
       x:=x+0.02;
   end;
END.