Область допустимых решений в ЗЛП

implementation
{$R *.dfm}
var
 x0,y0:integer; // начало координат
 maxx,maxy,k,dx,dy,xx,yy,xx1,yy1,xx2,yy2:integer;
 x,y,x1,y1:real;
 begin
  //определяем размеры формы
    maxX:=ClientWidth;  maxY:=ClientHeight;
 //определяем координаты центра формы
 dx:=round(maxX/2);   dy:=round(maxY/2);
 k:=round(dx/10); // вычисляем коэффициент масштабирования
 x0:= 20; y0:= dy;    // начало координат (x0,y0)
  with Canvas do begin
 Font.Name := 'Tahoma';   // заголовок
 Font.Size := 10;
 Brush.Style := bsClear;
 TextOut(25,15,'Область допустимых решений ЗЛП');
//рисуем оси координат
  Pen.Color:=clblack;
  MoveTo(20,y0); // начало координат
  LineTo(dx,y0);
  MoveTo(20,y0);
  lineto(20,20);
  TextOut(15,y0,'O');  //вывод на экран буквы O
   x:=0; y:=5;   // математические координаты 1-й точки
 xx:=round(x*k)+x0;  //экранные координаты первой точки
 yy:=y0 - round(y*k);
   TextOut(xx-10,yy-5,'A');  //вывод на экран буквы А
   pen.Color:= clRed;     
   MoveTo(xx,yy);
   x1:=4; y1:=3;  // математические координаты 2-й точки
 xx1:=round(x1*k)+x0; //экранные координаты  2-й точки
 yy1:=y0-round(y1*k);
   lineto(xx1,yy1);
   TextOut(xx1+7,yy1-10,'B'); //вывод на экран буквы В
   MoveTo(xx1,yy1);
   Pen.Color:=clblue;
   x1:=8; y1:=0;  // математические координаты 3-й точки
   xx2:=round(x*k)+x0;
   yy2:=y0-round(y*k);
   lineto(xx2,yy2);
   TextOut(xx2+5,yy2-15,'C'); //вывод на экран буквы С
   TextOut(25,dy+15,'Максимальное значение функции');  //вывод на экран текста
   TextOut(75,dy+35,'Z=2x+3y');   //вывод на экран текста
   TextOut(25,dy+55,'находится в точке В(4,3) и равно 17');  //вывод на экран текста
  end;
  end;
end.